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Preface 



Computers have countless practical applications in business, 
science, education, home finance and many other fields. But 
there's no reason why they can't be used for fun and games too. 

This book is a collection of fun and helpful programs. They've 
provided me with hours of entertainment, and I hope they can do 
the same for you. Some (Coin Flipper, Craps, Hangman, for 
example) are fairly standard games. Others (Money Mad, Crops, 
Freebish!) are more unique. Some (Favorite Song, Surprise Poem) 
aren't even games, but computerized gags: you'll just have to run 
the programs to find out what they do! 

For each program, I've given two complete listings. One is in 
standard BASIC, which can be run on most home computers either 
directly or with only minor changes. The second set of listings is in 
the abbreviated BASIC used in Radio Shack's Level I TRS-80 
computer. 

Unfortunately, there isn't much standardization in graphics 
generation. For this reason none of the games in this book use 
graphics. You can, however always program in your own graphics. 

Some of the programs in this book are quite simple, or based 
on luck. Others can be quite challenging to play. Some are designed 
to help you. All are designed for fun. I hope you enjoy them. 

Delton T.Horn 
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This chapter contains an assortment of games which pit a single 
player against the computer. They range from the familiar {Craps 
and Hangman) to the bizarre (jFreebishl), and from games of luck 
(Craps), through games of simple logic (ffigh/Low) and games of 
strategy and choices (Crops and Galactic Search). I hope you find 
them fun and challenging. Feel free to program in any variations 
you might think of. 



Craps 



just in case you're not familiar with the game of Craps, let's 
discuss how it's played. You make a bet (step 15) and roll a pair of 
dice (steps 85 - 120). If you roll two one's (Snake eyes, steps 25 & 
160) or two six's (Boxcars, steps 30 & 175) on your first roll, you 
lose. On the other hand, if the total of the dice on your first roll 
equals 7 or 11 (steps 35, 40 & 125), you win. Any other total is 
recorded as your point and you roll again (steps 45 & 50). 

You keep rolling until you match your point (steps 65 & 125) or 
get 7 or 11 for a total (steps 70, 75 & 185). Matching your point 
wins, but getting a 7 or 11 on any but the first roll loses. 

The computer uses a random number generator to simulate 
rolling the dice (steps 95 - 110): each of the dice can be from 1 to 6, 
so the totals can be from 2 to 12. The computer checks for wins and 
losses, and keeps tabs on your bets if you play more than one round. 

Of course this is a game of pure chance so it does not take skill 
or strategy to play. Consequently, it won't be as entertaining as 
many of the other games in this book. But the program is simple and 
fun, and it's worth running a few times just for kicks. See Fig. 1-1 
for the flowchart. 

Standard BASIC 

10 PRINT'LET'S SHOOT SOME CRAPS, PAL!": PRINT 

12 LETF=0 

14 PRINTWHAT IS YOUR BET": 

16 INPUT E 

20 GOSUB85 

25 IF C=2 THEN GOTO 160 

30 IF C=12 THEN GOTO 175 

35 IF C=7 THEN GOTO 125 

40 IF C=ll THEN GOTO 125 

45 LETD^C 

50 PRINT'YOUR POINT IS";D 

55 GOSUB85 

60 PRINT "YOUR POINT WAS"; D 

63 GOSUB 120 

67 IF C=D THEN GOTO 125 

70 IF C=7 THEN GOTO 185 

75 IF C=ll THEN GOTO 185 

80 GOTO 55 

85 PRINT'TRESS 'ENTER' TO ROLL" 

87 INPUT A$ 
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ROLL DICE 




ADD BET 
TO WINNINGS 



SUBTRACTBET 
FROM WINNINGS 



Fig. 1 -1 . Craps flowchart. 



90 FOR X=lTO200: NEXT X 

95 LET A=1NT(RND(0)*6)+1 

100 LET B=INT(RND(0)*6)+1 

105 PRINT:PRINT" ","*** ";A,"YOUR ROLL'.B;" ***" 

110 LETC=A+B 

115 PRINT: PRINT: PRINT'YOU JUST ROLLED ";C 

120 FOR X= 1T0333: NEXT X: RETURN 

125 PRINT" ","YOU WIN!" 

130 LETF=F+E 

135 IF F<0 THEN GOTO 195 

140 PRINT"SO FAR YOU'VE WON $";F 

145 LET Y=1:LET N=0 

147 PRINTWANT TO PLAY AGAIN"; 

149 INPUT G 

152 IF G=l THEN GOTO 15 

155 END 

160 PRINT" SNAKE EYES!" 

162 GOSUB 120 

165 PRINT" ","YOU LOSE!" 

170 LETF=F-E 

172 GOTO 135 

175 PRINT'BOX CARS!" 

180 GOTO 162 

185 PRINT'YOU CRAPPED OUT!" 

190 GOTO 162 

195 PRINT'SO FAR YOU'VE LOST $";F 

200 GOTO 145 

TRS-80 BASIC 

10 P. "LET'S SHOOT SOME CRAPS, PAL! ": P. : F=0 

15 IN. "WHAT'S YOUR BET";E:GOS.70:IF C=2 G. 135 

20 IFC=12G.145 

25 IFC=7G.105 

30 IFC=11G.105 

35 D=C:P."YOUR POINT IS ";D 

40 GOS.70:P."YOUR POINT WAS ";D:GOS.100:IFC=D G. 105 

45 IF C=7 G. 150 

50 IF C=ll G. 150 

55 G.40 

70 IN."PRESS'ENTER'TOROLL";A$:F.X=lTO200:N.X 

75 G=RND(30)+10:F.H=1TOG:A=RND(6):B=RND(6):CLS 

80 P.:"P. "***";A,"YOURROLL",B;"***" 

85 F.X=1T025:N.X:N.H:C=A+B:P."Y0U JUST ROLLED ";C 

90 F.X=1T0333:N.X:RET.. 

105 P." ","YOU WIN!":F=F+E 

110 IFF<0G.155 
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115 P. "SO FAR YOU'VE WON $"; F 

120 Y=1:N=0:IN."WANT TO PLAY AGAIN";G:IFG=1 G. 15 

125 END 

135 P. "SNAKE EYES!" 

140 P." ","YOU LOSE!":F=F-E:G.110 

145 P."BOXCARS!":G.140 

150 P. "YOU CRAPPED OUT!":G. 140 

155 P. "SO FAR YOU'VE LOST $";F:G.120 

Sample Run 

LET'S SHOOT SOME CRAPS, PAL! 
WHAT'S YOUR BET? 100 

PRESS 'ENTER' TO ROLL ? 

*** 5 YOUR ROLL 3 ••• 
YOU JUST ROLLED 8 
YOUR POINT IS 8 

PRESS 'ENTER' TO ROLL ? 

*** 4 YOUR ROLL 2 *** 
YOU JUST ROLLED 6 
YOUR POINT WAS 8 

PRESS 'ENTER' TO ROLL I 

*** 6 YOUR ROLL 1 *** 
YOU JUST ROLLED 7 
YOU CRAPPED OUT 

YOU LOSE! 
SO FAR YOU'VE LOST $100 
WANT TO PLAY AGAIN? YES 
WHAT'S YOUR BET? 250 

PRESS 'ENTER' TO ROLL ? 

*** 6 YOUR ROLL 5 **• 
YOU JUST ROLLED 11 

YOU WIN! 
SO FAR YOU'VE WON $150 
WANT TO PLAY AGAIN? NO 
Summary of Variables Used 
A Die#l 
B Die #2 
C Total of last roll 
D Point 
E Current bet 

F Record of winnings (or losses) 
G Timing 
H Timing 

N No (to "PLAY AGAIN?") 
X Timing 
Y Yes (to "PLAY AGAIN?") 
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High/Low 



High/Low is probably the simplest game in this book. The 
computer randomly selects a number which you try to guess. You 
get seven tries, and each time the computer tells you if you are too 
high or too low. In the easy version the number is between 1 and 
25. The medium version is between 1 and 40, and the hard version 
is between 1 and 55. If you prefer you can enter any upper limit you 
like when the computer asks you if you want an easy, medium or 
hard game (step 20). The computer only looks at the first letter of 
any word you type: entering "EASY", "EGG", orjust"E"willallbe 
the same to the machine. The values for E, M and H are set in line 
15, but you can just enter a number instead of one of the variables. 
Entering "8" would make for a pathetically easy game, and entering 
"888888" would be practically impossible. 

The computer asks you for a guess seven times (steps 45 to 
75). Your guess (called F in the program) is compared to the 
computer's number (X). If there is a match, the program will be 
sent to steps 105 to 145 for a win statement. Otherwise the 
computer determines if your guess is too high or too low and prints 
the appropriate statement. 

If you haven't found the correct number by your seventh 
guess, the computer tells you the correct number and ends the 
game. See Fig. 1-2 for the flowchart. 



Standard BASIC 

10 PRINT:PRINT" "/'HIGH/LOW": PRINT 

15 LET E=25:LET M=40:LET H=55 

20 INPUT'EASY, MEDIUM, OR HARD GAME";G 

25 LET X=INT(RND(1)*G)+1 

30 FOR Z=l TO 555:NEXT Z 

35 PRINT! AM THINKING OF A NUMBER FROM 1 TO ";G 

40 PRINT'YOU GET 7 GUESSES": PRINT 

42 FOR Z=l TO 444:NEXT Z 

45 F0RY=1T0 7 

50 INPUT "YOUR GUESS";F 

55 F0RZ=1T0 333:NEXTZ 

60 IF F=X GOTO 105 

65 IF F > X PRINT "TOO HIGH!" 

70 IF F < X PRINT "TOO LOW!" 

75 NEXTY 

80 PRINT'SORRY. TIME'S UP." 
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PICK* 



I 



F0RX=1T07 




ADVANCE X 




YES 



YES 



WIN 



C END } 



LOSE 



Rg. 1-2.High-Lowflowchart 
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85 PRINT "THE NUMBER WAS"; 

90 F0RZ=1T0 333:NEXTZ 

95 PRINT X 

100 END 

105 FORL=1TO20 

110 FORZ=1TO20 

115 PRINT 

120 NEXTZ 

125 PRINT'", "WINNER!" 

130 FORZ=1TO50:NEXTZ 

135 NEXTL 

140 PRINT:PRINTTHE NUMBER WAS ";X 

145 PRINT'YOU GOT IT ON GUESS #";Y 

150 END 
TRS-80 BASIC 

10 P.:P." ","fflGH/LOW":P.:E=25:M=40:H=55 

15 IN."EASY, MEDIUM OR HARD GAME";G:X=RND(G) 

20 F.Z=1 TO 555:N.Z:P."I AM THINKING OF A NUMBER FROM 1 

TO ";G 

25 P."YOU GET 7 GUESSES. ":P.:F.Z=1 TO 444:N.Z 

30 F.Y=1 TO 7:IN. "Y0URGUESS";F:F.Z=1T0333:N.Z 

35 IFF=XG.60 

40 IF F > X P. "TOO HIGH!" 

45 IF F < X P. "TOO LOW!" 

50 N.YrP. "SORRY. TIME'S UP.":P."THE NUMBER WAS "; 

55 F.Z=1T0333:N.Z:P.X:END 

60 F.L=1TO20:CLS:P.:P.:P.:P.:F.Z=1TO5O:N.Z 

65 P." ","WINNER!":F.Z=1TO50:N.Z:N.L:P. 

70 P. "THE NUMBER WAS ";X:P."YOU GOT IT ON GUESS #";Y 

75 END 

Sample Run 

HIGH/LOW 
EASY, MEDIUM OR HARD GAME? EASY 
I AM THINKING OF A NUMBER FROM 1 TO 25 
YOU GET 7 GUESSES 
YOUR GUESS? 10 
TOO LOW! 
YOUR GUESS? 20 
TOO HIGH! 
YOUR GUESS? 15 
TOO LOW! 
YOUR GUESS? 17 

WINNER! 
THE NUMBER WAS 17 
YOU GOT IT ON GUESS #4 
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Summary Of Variables Used 

E Easy game. E=25 

F Guess 

F Game range 

H Hard game. H=55 

L Timing variable 

M Medium game. M=40 

X Secret number 

Y Guess count 

Z Timing variable 
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Guess The Variables 



This game is simple enough in concept: it's another number 
guessing game. But playing this one just might tax your mathemati- 
cal abilities somewhat. If you always hated algebra, you might want 
to skip ahead to the next chapter, but if you enjoy solving a good 
puzzle, read on. 

The object of the game is to guess the value of the four 
variables (A, B, C & D). In an easy game they are between 1 & 10, in 
a medium game they are between 1 & 20, and in a hard game they 
are between 1 & 40. 

If you request a clue (steps 45, 50, & 225 - 485) the computer 
will give you an algebraic equation using two or more of the 
variables, and tell you the result. For example, the computer might 
give you the following clue; "C+ D/A = 7". By combining several 
of these clues, you try to determine what the individual variables 
are. 

If you decide to guess the variables (steps 45, 55, & 115 - 170) 
the computer will ask for each variable in turn, comparing your 
guesses with the correct answers. If you get all four right, you win, 
of course (steps 165 & 175 - 210). If you miss any, the computer 
will tell you how many you had right, but not which ones, and count 
it as half a clue. 

You get up to 20 clues (step 60), then you must take one final 
stab at guessing the variables (steps 70-80 & 115 - 170). If you miss 
this time, the computer prints out the correct answers, (steps 85 - 
110) and you lose. 

The first clue is always the sum of the four variables (A + B + 
C + D) (steps 30 & 35). The other clues are randomly chosen from 
a list of 25 equations (steps 225 - 485). The computer keeps track of 
which equations have already been used, so no clue will be used 
twice in one game (steps 230 & 235). 

You might want to use a calculator to help you play this game, 
or at least a pencil and paper. 

This is a good game to teach children math, but let them have 
fun with it. If you turn it into an extra chore nobody will get much 
out of it. 

It's also a good puzzler for adults. You might want to add some 
additional clues yourself. I think the program makes it quite obvi- 
ous how this is done. 
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Standard BASIC 

5 F0RZ=1T025:PRINT:NEXTZ 

10 PRINT'GUESS THE VARIABLES": PRINT 

15 LET E=10:LET M=20 

17 LET H=40:LET Q=l 

20 PRINT'EASY, MEDIUM OR HARD";: INPUT V 

22 LET A=INT(RND(1)*V)+1 

24 LET B=INT(RND(1)*V)+1 

26 LET C=INT(RND(1)*V)+1 

28 LET D=INT(RND(1)*V)+1 

30 LETX=A+B+C+D 

35 PRINT" A+B+C+D=";X 

40 FOR Z=1T025: LET A(Z)=0: NEXT Z 

45 PRINT'ENTER 1 FOR CLUE OR 2 TO GUESS "; 

47 INPUT W 

50 IF W=l GOSUB 225 

55 IF W=2 GOSUB 115 

60 IF Q>19.5 GOTO 70 

65 GOTO 45 

70 PRINT'SORRY. YOU'VE HAD 20 CLUES." 

75 PRINT"HERE'S YOUR LAST CHANCE TO GUESS." 

80 GOSUB 115 

85 PRINT'HERE ARE THE CORRECT ANSWERS"; : PRINT 

90 PRINT' A = "; : GOSUB 220: PRINT A 

95 PRINT"B = ";: GOSUB 220: PRINT B 
100 PRINr'C = ";:GOSUB220:PRINTC 
105 PRINP'D = ";:GOSUB 220:PRINT D 
110 END 

115 PRINT'A=";:INPUTE 
120 PRINT'B =";: INPUT F 
125 PRINT"C=";: INPUT G 
130 PRINT'D =";:INPUT H 
135 LET T=0: IF E=A THEN LET T=T+1 
140 IF F=B THEN LET T=T+1 
145 IF G=C THEN LET T=T+1 
150 IF H=D THEN LET T=T+1 
155 FORZ=lT0444:NEXTZ 
160 PRINT "YOU GOT ";T; "VARIABLES CORRECT." 
165 IF T=4 GOTO 175 
170 LET Q=Q+0. 5: RETURN 
175 PRINT'YOUUSED";Q;" CLUES." 
180 IF Q<10 PRINT'FANTASTIC!" 
185 IF Q<4 PRINT'DID YOU CHEAT?" 
190 IF Q>16 PRINTTM NOT PARTICULARLY IMPRESSED.' 
195 END 
220 FOR Z=1T0333:NEXT Z; RETURN 
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225 LET S=INT(RND(0)*25)+1 

230 IF A(S)=1 GOTO 225 

235 LET A(S)=1:LET Q=Q+1 

240 IF S=l GOTO 370 

245 IF S=2 GOTO 380 

250 IF S=3 GOTO 390 

255 IF S=4 GOTO 400 

260 IF S=5 GOTO 410 

265 IF S=6 GOTO 420 

270 IF S=7 GOTO 430 

275 IF S=8 GOTO 440 

280 IF S=9 GOTO 450 

285 IF S=10 GOTO 460 

290 IF S=ll GOTO 470 

295 IF S=12 GOTO 480 

300 IF S=13 GOTO 490 

305 IF S=14 GOTO 500 

310 IF S=15 GOTO 510 

315 IF S=16 GOTO 520 

320 IF S=17 GOTO 530 

325 IF S=18 GOTO 540 

330 IF S=19 GOTO 550 

335 IF S=20 GOTO 560 

340 IF S=21 GOTO 570 

345 IF S=22 GOTO 580 

350 IF S=23 GOTO 590 

355 IF S=24 GOTO 600 

360 LETX=A+B 

365 PRINr , A+B=";X:RETURN 

370 LETX=A+C 

375 PRINT"A+C=";X:RETURN 

380 LETX=A+D 

385 PRINT'A+D=";X:RETURN 

390 LETX=B+C 

395 PRINT'B+C=";X:RETURN 

400 LETX=B+D 

405 PRINT'B+D='*;X:RETURN 

410 LETX=C+D 

415 PRINT'C+D=";X:RETURN 

420 LET X=A*B*C*D* 

425 PRINT'A X B X C X D =";X:RETURN 

430 LETX=A*B 

435 PRINT'A X B =*;X:RETURN 

440 LET X=A*C 

445 PRINT'A X C =";X:RETURN 

450 LETX=A*D 

455 PRINT"A X D =";X:RETURN 
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460 LETX=B*C 

465 PRINT'B X C ='*;X:RETURN 

470 LETX=B*D 

475 PRINrB X D=";X:RETURN 

480 LETX=C*D 

485 PRINT'C X D =";X:RETURN 

490 LETX=A+B/C 

495 PRINT"A + B/C =";X:RETURN 

500 LETX=B+C/D 

505 PRINT"B + C/D =";X:RETURN 

510 LETX=C+D/A 

515 PRINT'C + D/A =";X:RETURN 

520 LET X=(A+B)*(C-D) 

525 PRINT(A+B)X(C-D)=";X:RETURN 

530 LETX=(B-A)'(C+D) 

535 PRINT(B-A)X(C+D)=";X:RETURN 

540 LETX=A*B-C 

545 PRINT A X B - C =";X:RETURN 

550 LETX=A*(B-C) 

555 PRINTAX(B-C)=";X:RETURN 

560 LETX=A*A-B 

565 PRINT"A SQUARED - B =";X:RETURN 

570 LETX=A*A-C 

575 PRINT'A SQUARED - C =";X:RETURN 

580 LETX=B*B-D 

585 PRINT'B SQUARED - D =";X:RETURN 

590 LETX=D*D-A 

595 PRINT'D SQUARED - A =";X:RETURN 

600 LETX=C*C-(A/(B*B))+D 

605 PRINT'C SQUARED - A/B SQUARED + D ="; X 

610 RETURN 

TRS-80 BASIC 

10 CLS:P. :P. "GUESS THE VARIABLES": E=10:M=20:H=40 

15 Q=1:IN."EASY, MEDIUM OR HARD ";V 

20 A=RND(V):B=RND(V):C=RND(V):D=RND(V):X=A+B+C+D 

25 P."A+B+C+D=",X:F.Z=lTO25:A(25)=0:N.Z 

30 IN."ENTER1F0RCLUE0R2T0GUESS";W:IFW=1G0S.225 

35 IFW=2GOS.75 

40 IFQ>19.5G.50 

45 G.30 

50 P. "SORRY. YOU'VE USED 20 CLUES." 

55 P."HERE'SYOURLASTCHANCETOGUESSTHE 

VARIABLES":GOS.75 

60 P. "HERE ARE THE CORRECT ANSWERS":P.:P."A = "; 

65 GOS.220:P.A:P."B = ";:GOS.220:P.B:P."C = "; 
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70 GOS.220:P.C:P."D = ";:GOS.220:P.D:END 

75 T=0:IN."A =";E:EN."B =";F:IN."C =":G 

80 IN."D =";H:IF E=A THEN T=T+1 

85 IF F=B THEN T=T+1 

90 IF G=C THEN T=T+1 

95 IF H=D THEN T=T+1 

100 F.Z=1T0444:N.Z:P."Y0U GOT ";T;" VARIABLES CORRECT." 
105 IFT=4G.120 
110 Q=A+0.5:RET. 

120 P. "YOU USED ";Q;" CLUES. ":IF Q<10 P. "FANTASTIC!" 
125 IF Q<4 P. "DID YOU CHEAT?" 
130 IF>16 P. "I'M NOT PARTICULARLY IMPRESSED." 
135 END 

220 F.Z=1T0333:N.Z:RET. 
225 S=RND(25) 
230 IF A(S)=1G.225 
235 A(S)=l:Q=Q+l:IF S=1G.365 
240 IFS=2G.370 
245 IFS=3G.375 
250 IFS=4G.380 
255 IFS=5G.385 
260 IFS=6G.390 
265 IFS=7G.395 
270 IFS=8G.40O 
275 IFS=9G.405 
280 IFS=10G.410 
285 IFS=11G415 
290 IFS=12G.420 
295 IFS=13G.425 
300 IFS=14G.430 
305 IFS=15G.435 
310 IFS=16G.440 
315 IFS=17G.445 
320 IFS=18G.450 
325 IFS=19G.455 
330 IFS=20G.460 
335 BFS=21G.465 
340 IFS=22G.470 
345 IFS=23G.475 
350 IFS=24G.480 
355 X=A+B:P."A+B=";X:RET. 
365 X=A+C:P."A+C=";X:RET. 
370 X=A+D:P."A+D=";X:RET. 
375 X=B+C:P."B+C=";X:RET. 
380 X=B+D:P."B+D=";X:RET. 
385 X=C+D:P."C+D=";X:RET. 
390 X=A*B»C*D:P."A X B X C X D =";X:RET. 
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395 X=A*B:P."A X B =";X:RET. 

400 X=A*C: P. " A X C ="; X: RET. 

405 X=A*D:P."A X D =";X:RET. 

410 X=B*C:P."B X C =";X:RET. 

415 X=C*D:P."C X D =";X:RET. 

420 X=B*D:P."B X D =";X:RET. 

425 X=A+B/C:P."A+ B/C=";X:RET. 

430 X=B+C/D:P."B + C/D =";X:RET. 

435 X=C+D/A:P."C + D/A =";X:RET. 

440 X=(A+B)*(C- D): P. "(A+B)X(C- D)=";X: RET. 

445 X=(B-A)*(C+D):P."(B-A)X(C+D)=";X:RET. 

450 X=A*B-C:P."A X B - C =";X:RET. 

455 X=A*(B-C):P."A X (B-C)=";X:RET. 

460 X=A*A-B:P."A SQUARED - B =";X:RET. 

465 X=A*A-C:P."A SQUARED - C =";X:RET. 

470 X=B*B-D:P."B SQUARED - D =";X:RET. 

475 X=D*D-A:P."D SQUARED - A =";X:RET. 

480 X=C*C-(A/(B*B))+D:P."C SQUARED - A/B SQUARED + 

D=";X 

485 RET. 

Sample Run 

GUESS THE VARIABLES 

EASY, MEDIUM, OR HARD ?EASY 

A+B+C+D=20 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

B+D=12 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

A X B - C =32 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

A SQUARED - B = 18 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

C X D =15 

ENTER 1 FOR CLUE OR 2 TO GUESS ?2 

A= ?6 

B= ?5 

C= ?5 

D= ?3 

YOU GOT VARIABLES CORRECT. 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

C SQUARED - A/B SQUARED + D =13.89796 

ENTER 1 FOR CLUE OR 2 TO GUESS ?1 

B X D =35 

ENTER 1 FOR CLUE OR 2 TO GUESS ?2 

A= ?4 

B= ?7 
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C= ?3 

D= ?5 

YOU GOT3 VARIABLES CORRECT. 

ENTER 1 FOR CLUE OR2 TO GUESS ?1 

A+D=10 

ENTER 1 FOR CLUE OR 2 TO GUESS ?2 

A= ?5 

B= ?7 

C= ?3 

D= ?5 

YOU GOT 4 VARIABLES CORRECT. 

YOU USED 8 CLUES. 

FANTASTIC! 

>READY 

Summary of Variables Used 

A unknown variable #1 

B unknown variable #2 

C unknown variable #3 

D unknown variable #4 

E Easy — E=10 / Guess variable A 

F Guess variable B 

G Guess variable C 

H Hard — H=40 / Guess variable D 

M Medium — M=20 

Q Clue count 

S Clue selection 

W Clue or guess? 

V Game level 

X Result of clue 

Z Timing variable 
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Hangman 



Hangman is a popular old pencil and paper game. In this 
version the computer selects a five letter word (out of 50 pre- 
programmed possibilities) and you have to guess what it is, letter 
by letter. If you correctly guess a letter it is printed in the proper 
position in the secret word. If it is used in the word more than once 
it will be printed wherever it occurs. An incorrect guess adds 
another letter to the word HANGMAN. If you spell HANGMAN 
before completing the secret word, you lose. Guessing the secret 
word, of course, is a win. You get a maximum of 11 letter guesses 
for each word, and 13 different letters are used in the various 
secret words. 

On each play you're reminded that the letters 
B,D, G, J,M,Q,U, V,X, Y, and Z are not to be used. These letters are 
used as variables to run the program. V,W,X,Y, and Z are espe- 
cially to be avoided since these are the variables that contain the 
secret word. To preserve program simplicity you are left on your 
honor not to use these letters, since the computer cannot distin- 
guish between them and a correct guess. See Fig. 1-3 for the 
flowchart. 

If you lose, the computer will tell you what the secret word 
was. 

Of course you can program in your own words. For example, if 
you want to add the word "HORSE". Change line 30 to LET 
U=INT(RND(0)*51)+1. Then add the following steps: 

121 IF U>50 THEN GOTO 1025 
1025 LET V=15:LET W=19 
1030 LETX=20:LETY=21 
1035 LETZ=13 
1040 GOTO 140 

OR you could substitute 
1025 LET V=H:LET W=0 
1030 LETX=R:LETY=S 
1035 LETZ=E 

The numerical values of the letters are given in steps 07 to 14 
Since this program is largely repetitive, only a portion of a sample 
run is given. 

Standard BASIC 

05 REM*SET LETTER VALUES* 

07 LETA=11:LETC=12:LETE=13:LETF=14 
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10 


LET H=15:LET I=16:LET K=17:LET L=18 


12 


LET N=23:LET 0=19:LET R=20:LET S=21 


14 


LET T=22:LETD=0:LET G=0:LET J=0 


16 


LETM=0:LETQ=O 


18 


REM*CLEAR WRONG GUESS COUNTER* 


20 


FOR X=lTO20:LET A(X)=0:NEXT X 


25 


REM*RANDOM WORD SELECTION* 


30 


LET U=INT(RND(0)*50)+1 


35 


IF U<4 THEN GOTO 500 


40 


IF U<9 THEN GOTO 525 


45 


IF U<14 THEN GOTO 565 


50 


IF U<19 THEN GOTO 600 


55 


IF U<23 THEN GOTO 635 


60 


IF U<26 THEN GOTO 665 


65 


IF U<29 THEN GOTO 690 


70 


IF U<33 THEN GOTO 715 


i 75 


IF U<36 THEN GOTO 755 


80 


IF U<38 THEN GOTO 775 


85 


IF U=38 THEN GOTO 795 


90 


IF U<41 THEN GOTO 800 


95 


IF U=41 THEN GOTO 820 


100 


IF U=42 THEN GOTO 825 


105 


IF U<45 THEN GOTO 830 


110 


IF U=45 THEN GOTO 845 


115 


IF U=46 THEN GOTO 850 


120 


IF U<49 THEN GOTO 855 


122 


LET V=22 


125 


IF U=49 THEN GOTO 870 


130 


LET W=13:LET X=13 


135 


LET Y=22:LET Z=15 


140 


REM*THE PLAY* 


145 


CLS: PRINT' "."HANGMAN" 


147 


PRINT-THESE LETTERS ARE NOT USED - 


150 


PRINT'M,Q,U,V,W,X,Y, & Z." 


152 


LET B=A(15) 


154 


IF B=0 THEN GOTO 165 


156 


PRINT'LETTERS USED SO FAR -"; 


158 


FOR U=lTO B:LET A(19)=A(U) 


i 160 


GOSUB 880 


162 


NEXTU 


j 165 


PRINT: PRINT 


| 170 


IF A(17)=0 THEN PRINT' " 


175 


IF A(17)=l THEN PRINT'H " 


180 


IF A(17)=2 THEN PRINT'HA " 


185 


IF A(17)=3 THEN PRINT'HAN—" 


190 


IF A(17)=4 THEN PRINT'HANG— " 



B.D.GJ," 
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c 



SET LETTER 
VALUES 



CLEAR COUNTERS 



SELECT 
SECRET WORD 




ADVANCE WRONG 
GUESS COUNTER 



PLACE INTO 
SECRET WORD 





Y6S 



c 



Fig. 1-3. Hangman flowchart. 

195 IF A(17)=5 THEN PRINT'HANGM— " 

200 IF A(17)=6 THEN PRINT"HANGMA_" 

205 IF A(17)=7 THEN GOTO 950 

210 PRINT:PRINT:PRINT" ","*"; 

212 LETA(18)=0 

215 LET A(19)=D:GOSUB 875 

220 LET A(19)=G:GOSUB 875 

225 LET A(19)=J:GOSUB 875 

230 LET A(19)=M:GOSUB 875 

235 LET A(19)=Q:GOSUB 875 

237 REM*WINTEST* 

238 IF A (18)=5 THEN GOTO 1000 
240 PRINT'*": PRINT 

242 PRINT'YOUR GUESS"; 

245 INPUT U 
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247 LETA(18)=0 

248 REM* CHECK FOR CORRECT GUESS * 
250 IF U=V THEN GOSUB 975 

255 IF U=W THEN GOSUB 980 
260 IF U=X THEN GOSUB 985 
265 IF U=Y THEN GOSUB 990 
270 IF U=Z THEN GOSUB 995 
275 IF A(18)=0 THEN GOTO 290 
280 LETB=A(15) 
282 LETB=B+1 
284 LETA(15)=B 
286 A(B)=U 
288 GOTO 140 
290 LETB=A(17) 
295 LETB=B+1 
300 LETA(17)=B 
305 GOTO 280 
500 LETX=11:LETY=12 
502 LET Z=17:LET V=21 
505 IF U=l THEN LET W=15 
510 IF U=2 THEN LET W=22 
515 IF U=3 THEN LET W=18 
520 GOTO 140 
525 LET W =11:LET X=17 
527 LET Y=13:LET Z=21 
530 IF U=4 THEN LET V=14 
535 IF U=5 THEN LET V=20 
540 IF U=6 THEN LET V=22 
545 IF U=7 THEN LET V=18 
550 IF U=8 THEN LET V=12 
555 GOTO 140 
565 LET W=ll: LET X=12 
570 LETY=17:LETZ=21 
572 IF U=9 THEN LET V=15 
575 IF U=10 THEN LET V=18 
580 IF U=ll THEN LET V=20 
585 IF U=12 THEN LET V=21 
590 IF U=13 THEN LET V=22 
595 GOTO 140 
600 LET W=13:LET Z=ll 
605 LET Y=20:LET Z=21 
607 IF U=14 THEN LET V=14 
610 IF U=15 THEN LET V=15 
615 IF U=16 THEN LET V=20 
620 IF U=17 THEN LET V=21 
625 IF U=18 THEN LET V=22 
630 GOTO 140 
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635 LET W=16:LET X=23 

637 LET Y=13:LET Z=21 

640 IF U=19 THEN LET V=23 

645 IF U=20 THEN LET V=22 

650 IF U=21 THEN LET V=18 

655 IF U=22 THEN LET V=14 

660 GOTO 140 

665 LET W=16:LET X=12 

670 LET Y=17:LET Z=21 

672 IF U=23 THEN LET V=17 

675 IF U=24 THEN LET V=18 

680 IF U=25 THEN LET V=22 

685 GOTO 140 

690 LET W=19:LET X=19 

695 LET Y=17:LET Z=21 

700 IF U=26 THEN LET V=12 

702 IF U=27 THEN LET V=15 

705 IF U=28 THEN LET V=18 

710 GOTO 140 

715 LET X=16: LET Y=12:LET Z=17 

720 IF U>30 THEN GOTO 740 

725 LET V=21:LET W=22 

730 IF U=30 THEN LET W=18 

735 GOTO 140 

740 LET V=12:LET W=20 

745 IF U=32 THEN LET V=22 

750 GOTO 140 

755 LET W=20:LET X=ll 

760 LET Y=12:LET Z=17 

762 IF U=34 THEN LET V=12 

765 IF U=35 THEN LET V=22 

770 GOTO 140 

775 LET X=11:LET Y=20:LET Z=21 

780 IF U=36 THEN GOTO 790 

785 LET V=21:LET W=22 

787 GOTO 140 

790 LET V=22:LET W=21 

792 GOTO 140 

795 LET V=21:LET W=22:LET X=ll 

797 LET Y=20: LET Z=22: GOTO 140 

800 LET V=21:LET W=15 

802 LET X=11:LET Y=14:LET Z=22 

805 IF U=40 THEN LET X=16 

810 GOTO 140 

820 LET V=12:LET W=11:LET X=20 

822 LET Y=13: LET Z=21: GOTO 140 
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825 LET V=13:LET W=20:LET X=20 

827 LET Y=14: LET Z=20: GOTO 140 

830 LET V=14:LET Y=22 

832 IF U=43 GOTO 840 

835 LET W=11:LET X=12 

837 LET Z=12: GOTO 140 

840 LET W=16:LET X=14 

842 LET Z=15: GOTO 140 

845 LETV=17:LETW=23:LETX=13 

847 LET Y=13:LET Z=18:GOTO 140 

850 LET V=18:LET W=16:LET X=17 

852 LET Y=13:LET Z=21:GOTO 140 

855 LETV=21 

857 IF U=47 GOTO 865 

860 LET W=17:LET X=16:LET Y=18 

862 LET Z=18: GOTO 140 

865 LET W=15:LET X=13:LET Y=ll 

867 LET Z=14: GOTO 140 

870 LET W=15:LET X=13:LET Y=13 

872 LETZ=U:GOTO140 

875 REM*CONVERSION TO LETTERS* 

877 IF A(19)=0 GOTO 1015 

880 IF A(19)=ll THEN PRINT'A"; 

885 IF A(19)=12 THEN PRINT'C"; 

890 IF A(19)=13 THEN PRINT'E"; 

895 IF A(19)=14 THEN PRINT'F"; 

900 IF A(19)=15 THEN PRINT"H"; 

905 IF A(19)=16 THEN PRINTT'; 

910 IF A(19)=17 THEN PRINT'K"; 

915 IF A(19)=18 THEN PRINT'L"; 

920 IF A(19)=19 THEN PRINT'O"; 

925 IF A(19)=20 THEN PRINT"R"; 

930 IF A(19)=21 THEN PRINT'S"; 

935 IF A(19)=22 THEN PRINT'T"; 

940 IF A(19)=23 THEN PRINT'N"; 

942 LET A(18)=A(18)+1 

945 RETURN 

950 PRINT"HANGMAN":PRINT 

955 PRINT' ","YOU LOSE" 

957 PRINT:PRINT"THE WORD WAS ", 

960 LET A(19)=V:GOSUB 875 

962 LET A(19)=W:GOSUB 875 

964 LET A(19)=X:GOSUB 875 

966 LET A(19)=Y:GOSUB 875 

968 LET A(19)=Z:GOSUB 875 
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970 END 

975 LET D=V:LET A(18)=A(18)+1 

977 RETURN 

980 LET G=W:LET A(18)=A(18)+1 

982 RETURN 

985 LET J=X:LET A(18)=A(18)+1 

987 RETURN 

990 LET M=Y:LET A(18)=A(18)+1 

992 RETURN 

995 LETQ=Z:LETA(18)=A(18)+1 

997 RETURN 

1000 PRINT" *":PRINT:PRINT 
1005 PRINT'YOU WIN!" 
1010 END 
1015 PRINT'?"; 
1020 RETURN 

TRS-80 BASIC 

10 A=U:C=12:E=13:F=14:H=15:I=16:K=17 

15 L=18:N=23:O=19:R=20:S=21:T=22:D=0 

20 G=0:J=0:M=0:Q=0 

25 F.X=lTO20:A(X)=0:N.X 

30 U=RND(50):IF U<4G.500 

35 IFUOG.525 

40 IFU<14G.565 

45 IFU<19G.600 

50 IFU<23G.635 

55 IFU<26G.665 

60 IFU<29G.690 

65 IFU<33G.715 

70 IFU<36G.775 

80 IFU=38G.795 

85 IFU<41G.800 

90 IFU=41G.820 

95 IFU=42G.825 

100 IFU<45G.830 

105 IFU=45G.845 

110 IFU=46G.850 

115 IFU<49G.855 

120 V=22:IF U=49G.870 

125 W=13:X=13:Y=22:Z=15 

140 CLS:P." "."HANGMAN" 

145 P. "THESE LETTERS ARE NOT USED-B,D,GJ,M,Q,U, 

V.W.X.Y, & Z" 

150 B=A(15):IFB=0G.165 

155 P."LETTERS USED SO FAR-"; 
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160 


F.U=1TOB:A(19)=A(U):GOS.880:N.U 


165 


P.:P.:IFA(17)=0P." " 


170 


IF A(17)=1P."H " 


175 


IF A(17)=2P."HA " 


180 


IF A(17)=3P."HAN " 


185 


IF A(17)=4P."HANG " 


190 


IF A(17)=5P."HANGM_J' 


195 


IF A(17)=6P."HANGMA— " 


200 


IFA(17)=7G.950 


210 


P.:P.:P."","*";:A(18)=0 


215 


A(19)=D: GOS. 875: A(19)=G: GOS.875 


220 


A(19)=J: GOS.875: A(19)=M: GOS. 875 


225 


A(19)=Q:GOS.875:IFA(18)=5G.1000 


240 


P." *":P. 


245 


IN."YOURGUESS";U:A(18)=0:IFU=VGOS.975 


250 


IF U=WGOS.980 


255 


IF U=XGOS.985 


260 


IF U=YGOS.990 


265 


IF U=ZGOS.995 


270 


IF A(18)=0G.290 


275 


B=A(15):B=B+1:A(15)=B:A(B)=U:G.140 


290 


A(17)=A(17)+1:G.275 


500 


X=11:Y=12:Z=17:V=21:IF U=l THEN W=15 


505 


IF U=2 THEN W=22 


510 


IF U=3 THEN W=18 


515 


G.140 


525 


W=11:X=17:Y=13:Z=21:IF U=4 THEN V=14 


530 


IF U=5 THEN V=20 


535 


IF U=6 THEN V=22 


540 


IF U=7 THEN V=18 


545 


IF U=8 THEN V=12 


550 


G.140 


565 


W=11:X=12:Y=17:Z=21:IF U=9 THEN V=15 


570 


IF U=10 THEN V=18 


575 


IF U=ll THEN V=20 


580 


IF U=12 THEN V=21 


585 


IF U=13 THEN V=22 


590 


G.140 


600 


W=13:X=11:Y=20:Z=21:IF U=14 THEN V=14 


605 


IF U=15 THEN V=15 


610 


IF U=16 THEN V=20 


615 


IF U=17 THEN V=21 


620 


IF U=18 THEN V=22 


625 


G.140 


635 


W=16:X=23:Y=13:Z=21:IF U=19 THEN V=23 


640 


IF U=20 THEN V=22 
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645 IF 11=21 THEN V=18 

650 IF U=22 THEN V=14 

655 G.140 

665 W=16:X=12:Y=17:Z=21:V=22:IF U=23 THEN V=17 

670 IF U=24 THEN V=18 

680 G.140 

690 V=12:W=19:X=19:Y=17:Z=21:IF U=27 THEN V=15 

700 IF U=28 THEN V=18 

710 G.140 

715 X=16:Y=12:Z=17:IF U>30 G.740 

720 V=21:W=22:IF U=30 THEN W=18 

730 G.140 

740 V=12:W=20:IF U=32 THEN V=22 

750 G.140 

755 V=12:W=20:X=11:Y=12:Z=17:IF U=35 THEN V=22 

760 G.140 

775 X=11:Y=20:Z=21:IF U=36 G.790 

780 V=21:W=22:G.140 

790 V=22:W=21:G.140 

795 V=21:W=22:X=11:Y=20:Z=22:G.140 

800 V=21:W=15:X=11:Y=14:Z=22:IF U=40 THEN X=16 

810 G.140 

820 V=12:W=11:X=20:Y=13:Z=21:G.140 

825 V=13: W=20:X=20: Y=14:Z=20:G. 140 

830 V=14:Y=22:IF U=43 G.840 

835 W=11:X=12:Z=21: G.140 

840 W=16:X=14:Z=15:G.140 

845 V=17:W=23:X=13:Y=13:Z=18:G.140 

850 V=18:W=16:X=17:Y=13:Z=21:G.140 

855 V=21:IF U=47 G.865 

860 W=17:X=16:Y=18:Z=18:G.140 

865 W=15:X=13:Y=11:Z=14:G.140 

870 W=15:X=16:Y=13:Z=14:G.140 

875 IFA(19)=0G.1015 

880 IF A(19)=11P."A": 

885 IF A(19)=12 P."C"; 

890 IF A(19)=13 P."E"; 

895 IF A(19)=14P."F"; 

900 IF A(19)=15 P."H"; 

905 IF A(19)=16P."I"; 

910 IF A(19)=17P."K"; 

915 IF A(19)=18P."L"; 

920 IF A(19)=19P."0"; 

925 IF A(19)=20P."R"; 

930 IFA(19)=21P."S"; 

935 IF A(19)=22P."T"; 
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940 IF A(19)=23P."N"; 

945 A(18)=A(18)+1:RET. 

950 P."HANGMAN":P.:P."YOU LOSE":P. 

955 P. "THE WORD WAS ";:A(19)=V:GOS.875 

960 A(19)=W:GOS.875:A(19)=X:GOS.875 

965 A(19)=Y:GOS.875:A(19)=Z:GOS.875 

970 END 

975 D=V:A(18)=A(18)+1:RET. 

980 G=W:A(18)=A<18)+1:RET. 

985 J=X:A(18)=A(18)+1:RET. 

990 M=Y:A(18)=A(18)+1:RET. 

995 Q=Z:A(18)=A(18)+1:RET 

1000 P."*":P.:P.:P."YOUWIN!:END 

1015 P."?";:RET. 



Summary Of Variables Used 

A 11 * POSSIBLE LETTER 

B Letter count 

C 12 * POSSIBLE LETTER 

D CORRECT GUESS * 1st POSITION 

E 13 * POSSIBLE LETTER 

F 14 * POSSIBLE LETTER 

G CORRECT GUESS * 2nd POSITION 

H 15 * POSSIBLE LETTER 

I 16 * POSSIBLE LETTER 

J CORRECT GUESS * 3rd POSITION 

K 17 * POSSIBLE LETTER 

L 18 * POSSIBLE LETTER 

M CORRECT GUESS * 4th POSITION 

N 23 * POSSIBLE LETTER 

O 19 * POSSIBLE LETTER 

P NOT USED 

Q CORRECT GUESS * 5th POSITION 

R 20 * POSSIBLE LETTER 

S 21 * POSSIBLE LETTER 

T 22 * POSSIBLE LETTER 

U WORD SELECTION/CURRENT GUESS 

V SECRET WORD * 1st LETTER 

W SECRET WORD * 2nd LETTER 

X SECRET WORD * 3rd LETTER 
i Y SECRET WORD * 4th LETTER 

! Z SECRET WORD * 5th LETTER 

i A(l)-A(ll) LETTERS USED SO FAR 

j A(15) LETTER COUNT 

A(17)-A(19) VARIABLES 
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Sample Run (excerpt) 

HANGMAN 
THESE LETTERS ARENOTUSED-B,D,GJ,M,Q,U,V,W,X,Y,&Z 
LETTERS USEDSOFAR-EAIST 
HAN_ 

* ? A? I? * 
YOUR GUESS? R 

HANGMAN 
THESELETTERSARENOTUSED-B,D,G,J,M I Q,U,V,W,X,Y,&Z 
LETTERS USED SO FAR-E A I S T R 
HAN— 

*RA?I?* 
YOUR GUESS? N 

HANGMAN 
THESE LETTERS ARE NOTUSED-B,D,G J,M,Q,U,V,W,X,Y, &Z 
LETTERS USEDSOFAR-EAISTRN 
HANG 

*RA?I?* 
YOUR GUESS? 
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Freebish! 
The Game With Unknown Rules 

Freebish! is probably the strangest game in this book, since 
part of the fun is the challenge of figuring out the rules. I recom- 
mend running the program a few times before reading the explana- 
tion (which is right after the program listings). 

There are rules, even though it might not seem that way. Have 
fun, and if you get a little frustrated, try not to take it out on your 
computer. Just think of how much fun it will be when you get to 
watch someone else try to figure it out. 

A sample run might give it away, so I'm not including one. 

Standard BASIC 

2 FOR X=l TO 40:PRINT 

4 NEXTX 

6 LET A=INT (RND(0)*21)- 10 

8 LET B=INT(RND(0)*21)- 10 

10 LET C=INT(RND(0)*21)-10 

12 LET D=INT(RND(0)*21)-10 

14 LETE=INT(RND(0)*21)-10 

16 LETF=INT(RND(0)*21)-10 

18 LETG=INT(RND(0)*21)-10 

20 LET H=INT(RND(0)*21)- 10 

22 LET I=INT(RND(0)*21)- 10 

24 LETJ=INT(RND(0)*21)-10 

26 LETK=INT(RND(0)*21)-10 

28 LETL=INT(RND(0)*21)-10 

30 LETM=INT(RND(0)*21)-10 

32 LETN=INT(RND(0)*21)-10 

34 LETQ=INT(RND(0)*21)-10 

36 LETR=INT(RND(0)*21)-10 

38 LETS=INT(RND(0)*21)-10 

40 LET T=INT(RND(0)*21)-0 

42 LETU=INT(RND(0)*21)-10 

44 LETV=INT(RND(0)*21)-10 

46 LET O=0:LET A(1)=0 

48 LET W=0:LET A(2)=0 

50 LET X=0:LET Z=0 

52 LETA(3)=-50 

54 REM* THE GAME BEGINS * 

56 PRINT'FREEBISH!" 

58 LETY=F 

60 LETA(2)=F 

62 INPUT X 
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64 GOSUB 180 

66 LET W=INT(RND(0)*20)+1 

68 IF W=l THEN GOTO 225 

70 IF W=2 THEN GOTO 255 

72 IF W=3 THEN GOTO 270 

74 IF W=4 THEN GOTO 285 

76 IF W=5 THEN GOTO 300 

78 IF W=6 THEN GOTO 315 

80 IF W=7 THEN GOTO 330 

82 IF W=8 THEN GOTO 345 

84 IF W=9 THEN GOTO 360 

86 IF W=10 THEN GOTO 375 

88 IF W=ll THEN GOTO 390 

90 IF W=12 THEN GOTO 405 

92 IF W=13 THEN GOTO 420 

94 IF W=14 THEN GOTO 435 

96 IF W=15 THEN GOTO 450 

98 IF W=16 THEN GOTO 465 
100 IF W=17 THEN GOTO 480 
102 IF W=18 THEN GOTO 495 
104 IF W=19 THEN GOTO 510 
110 GOTO 525 
160 LET A(2)=A(2)+Y 
162 LET Z=0:LET W=0 
164 LETA(l)=A(l)-(Y/2) 
170 INPUT X 
175 GOTO 64 

180 IF X=A(3) THEN GOTO 220 
185 IF X=Y THEN GOTO 220 
187 LET A(1)=A(1)+X 
190 LETA(3)=X 
192 FOR Z=l TO 470:NEXT Z 
195 PRINT" SCORE" 
197 PRINT'THE BRAIN", A(2) 
200 PRINT'THE CLOD*\A(l) 
205 IF A(l)>35 THEN GOTO 550 
208 IF A(2)>35THEN GOTO 540 
210 PRINT:PRINT 
212 FOR Z=1T0666:NEXT Z 
215 LETZ=0 
217 RETURN 

220 LET A(1)=A(1)- 10:FOR Z=l TO 470:NEXT Z 
222 GOTO 195 
225 LET Z=A: GOSUB 240 
227 IF Z=50 THEN GOTO 66 
230 PRINT"ALBOOKISH!" 
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232 LETY=A 

235 GOTO 160 

240 IF Z=Y THEN LET Z=50 

245 IF Z=X THEN LET Z=50 

250 RETURN 

255 LET Z=B:GOSUB 240 

257 IFZ=50.THENGOTO66 

260 PRINT'BREEP!" 

262 LETY=B 

265 GOTO 160 

270 LETZ=C:GOSUB240 

272 IF Z=50 THEN GOTO 66 

275 PPJNT'CRIPKLUTS!" 

277 LETY=C 

280 GOTO 160 

285 LETZ=D:GOSUB240 

287 IF Z=50 THEN GOTO 66 

290 PRINT'DUFFLEEM!" 

292 LETY=D 

295 GOTO 160 

300 LETZ=E:GOSUB240 

302 IF Z=50 THEN GOTO 66 

305 PRINT'EXQUIMBLE!" 

307 LETY=E 

310 GOTO 160 

315 LETZ=F:GOSUB240 

317 IF Z=50 THEN GOTO 66 

320 PPJNT'TLIBBINK!" 

322 LETY=F 

325 GOTO 160 

330 LETZ=G:GOSUB240 

332 IF Z=50 THEN GOTO 66 

335 PRINT'GRUNKITT!" 

337 LETY=G 

340 GOTO 160 

345 LETZ=H:GOSUB240 

347 IF Z=50 THEN GOTO 66 

350 PRINT'HEEJAMBOONKIE!" 

352 LETY=H 

355 GOTO 160 

360 LETZ=I:GOSUB240 

362 IF Z=50 THEN GOTO 66 

365 PRINT'ISTHRIM!" 

367 LETY=I 

370 GOTO 160 

375 LETZ=J:GOSUB240 
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377 IF Z=50 THEN GOTO 66 

380 PRINT'JACQUELPHLOOM!" 

382 LETY=J 

385 GOTO 160 

390 LETZ=K:GOSUB240 

392 IF Z=50 THEN GOTO 66 

395 PRINT'KREECK!" 

397 LETY=K 

400 GOTO 160 

405 LETZ=L:GOSUB240 

407 IF Z=50 THEN GOTO 66 

410 PRINT'LORKE!" 

412 LETY=L 

415 GOTO 160 

420 LETZ=M:GOSUB240 

422 IF Z=50 THEN GOTO 66 

425 PRINTMUCSTILE!" 

427 LETY=M 

430 GOTO 160 

435 LET Z=N:GOSUB 240 

437 IF Z=50 THEN GOTO 66 

440 PRINT'NEFLOM!" 

442 LETY=N 

445 GOTO 160 

450 LETZ=Q:GOSUB240 

452 IF Z=50 THEN GOTO 66 

455 PRINT'QUIGGGLESBY!" 

457 LETY=Q 

460 GOTO 160 

465 LETZ=R:GOSUB240 

467 IF Z=50 THEN GOTO 66 

470 PRINT'RECKLEBOP!" 

472 LETY=R 

475 GOTO 160 

480 LETZ=S:GOSUB240 

482 IF Z=50 THEN GOTO 66 

485 PRINT"SNORK!" 

487 LETY=S 

490 GOTO 160 

495 LETZ=T:GOSUB240 

497 IF Z=50 THEN GOTO 66 

500 PRINTTHUBBLE!" 

502 LETY=T 

505 GOTO 160 

510 LETZ=U:GOSUB240 

512 IF Z=50 THEN GOTO 66 
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515 PRINT'UBENZZERT!" 

517 LETY=U 

520 GOTO 160 

525 LETZ=V:GOSUB240 

527 IF Z=50 THEN GOTO 66 

530 PRINT'VELK!" 

532 LETY=V 

535 GOTO 160 

540 PRINT! WIN, " 

542 GOSUB570 

545 PRINT'OF COURSE." 

547 END 

550 PRINT" HEY! "; 

552 GOSUB570 

555 PRINT'YOU WON!" 

557 GOSUB570 

560 PRINT'THAT WASN'T SUPPOSED TO HAPPEN!" 

565 END 

570 F0RZ=1T0 555 

575 NEXTZ 

580 RETURN 

TRS-80 BASIC 

5 CLS:P.:P.:P.:A=RND(21)-11:B=RND(21)-11:C=RND(21)-11 

10 D=RND(21)-11:E=RND(21)-11:F=RND(21)-11:G=RND(21)-11 

15 H=RND(21)- 11:I=RND(21)- 11:J=RND(21)- 11:K=RND(21)- 11 

20 L=RND(21)-11:M=RND(21)-11:N=RND(21)-11:Q=RND(21)-11 

25 R=RND(21)- 11:S=RND(21)- 11:T=RND(21)- 11:T=RND(21)- 11 

30 U=RND(21)-11:V=RND(21)- 11:0=0: W=0:X=0:Z=0 

35 A(l)=0:A(2)=0:A(3)=-50 

40 P."FREEBISH!":Y=F:A(2)=F 

45 JN.X:GOS.180:W=RND(20):IF W=l G.225 

50 IFW=2G.255 

55 IFW=3G.270 

60 IFW=4G.285 

65 IFW=5G.300 

70 IFW=6G.315 

72 IFW=7G.330 

74 IFW=8G.345 

76 IFW=9G.360 

78 IFW=10G.375 

80 IFW=11G.390 

82 IFW=12G.405 

84 IFW=13G.420 

86 IFW=14G.435 

88 IFW=15G.450 
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90 IFW=16G.465 

92 IF W=17 G.480 

94 IFW=18G.495 

96 IFW=19G.510 

100 G.525 

160 A(2)=A(2)+Y:Z=0:W=0:A(l)=A(l)-(Y/2) 

165 IN.X:G.50 

180 IF X=A(3) G.220 

185 IF X=Y G.220 

190 A(l)=AQ)+X:A(3)=X:F.Z=lTO470:N.Z 

195 P."SCORE":P."THE BRAIN",A(2):P."THE CLOD",A(l) 

200 IFA(1)>35G.550 

205 IF A(2)>35 G.540 

210 P.:P.:F.Z=lTO666:N.Z:Z=0:RET. 

220 A(1)=A(1)- 10:F.Z=lTO470:N.Z:G.195 

225 Z=A:GOS.240:IF Z=50 G.55 

230 P."ALBOOKISH!":Y=A:G.160 

240 IF Z=Y THEN Z=50 

245 IF Z=X THEN Z=50 

250 RET. 

255 Z=B:IFZ=50G.55 

260 Y=B:P."BREEP!":G.160 

270 Z=C:GOS.240:IE Z=50 G.55 

275 P."CRIPKLUTS!":Y=C:G.160 

285 Z=D:GOS.240:IF Z=50 G.55 

290 P.DUFFLEEM!":Y=D:G.160 

300 Z=E:GOS.240:IFZ=50G.55 

305 P."EXQUIMBLE!":Y=E:G.160 

315 Z=F: GOS. 240:IF Z=50 G. 55 

320 P."FLIBBINK!":Y=F:G.160 

330 Z=G:GOS.240:IF Z=50 G.55 

335 P."GRUNKITT!":Y=G:G.160 

345 Z=H:GOS.240:IF Z=50 G.55 

350 P."HEEJAMBOONKLE!":Y=H:G.160 

360 Z=I:GOS.240:IF Z=50 G. 55 

365 P. "ISTHRIM!": Y=I: G. 160 

375 Z=J:GOS.240:IFZ=50G.55 

380 P."JACQUELPHLOOM!":Y=J:G.160 

390 Z=K:GOS.240:IF Z=50 G.55 

400 P."KREECK!":Y=K:G.160 

405 Z=L:GOS.240:IF Z=50 G.55 

410 P."LORKE!":Y=L:G.160 

420 Z=M:GOS.240:IF Z=50 G.55 

425 P."MUCSTILE!":Y=M:G.160 

435 Z=N:GOS.240:IF Z=50 G.55 

440 P."NEFLOM!":Y=N:G.160 
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450 Z=Q:GOS.240:IFZ=50G.55 

455 P."QUIGGLESBY!":Y=Q:G.160 

465 Z=R:GOS.240:IFZ=50G.55 

470 P."RECKLEBOP!":Y=R:G.160 

480 Z=S.GOS.240:IF Z=50 G.55 

490 P."SNORKl":Y=S:G.160 

495 Z=T:GOS.240:IF Z=50 G.55 

500 P.'THUBBLE!":Y=T:G.160 

510 Z=U:GOS.240:IF Z=50 G.55 

520 P."UBENZZERT!":Y=U:G.160 

525 Z=V:GOS.240:IF Z=50 G.55 

530 P."VELK!":Y=V:G.160 

540 P.'IWIN, ";:GOS.570 

545 P. "OF COURSE." 

547 END 

550 P. "HEY! ";:GOS.570 

555 P. "YOU WON!":GOS.570 

560 P. "THAT WASN'T SUPPOSED TO HAPPEN!" 

565 END 

570 F.Z=1T0555:N.Z 

575 RET. 

The Rules for Freebish! 

Actually the rules for Freebish! are really quite simple. Vari- 
ous letters of the alphabet (except O, W, X and Z, which are used by 
the computer to keep track of things) are randomly assigned values 
from -10 to +10. The first letter of any entry determines the 
amount to be added to or subtracted from your score (any additional 
letters are ignored; they're just for show). If you play the same 
letter twice in a row, or immediately after the computer has played 
that letter, you lose 10 points regardless of the ordinary point value 
of that letter. The computer chooses its plays randomly, but it 
won't break the repetition rule mentioned above, and its first play 
is always "FREEBISH!" (the letter F). Whoever manages to rack 
up a score of more than 35 points wins the game. Even when you 
know the rules, it's harder than it looks because the letters have 
different values each time you play. (NOTE: If two letters have the 
same point value, they are counted as the same letter for the 
repetition rule.) 
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Crops 



In this game you are a farmer growing two crops— 
dreckmelons (which are delicious with rutabagas) and treephules, 
from which valuable treephule fibers are made. The object is to 
have a good harvest. 

Dreckmelon plants will die if exposed to below 40° tempera- 
tures for too long. They can be kept warm by releasing strunkflies, 
which nest over dreckmelon plants in great droves, thereby keep- 
ing them warm. Unfortunately, strunkflies love to eat treephule 
bushes. 

Nellum spiders eat strunkflies. Unfortunately, they also eat 
the frubees needed to pollenate the treephule bushes. 

In case of drought you must open up irrigation ditches. But this 
will also bring in guntherbugs which destroy both crops (and bite 
people too). Guntherbugs serve no useful purpose. 

To help you control the insect population, three different 
insecticides are available: 

DDS: 13% effective against insects; 2^2% effective against 
plants 

RQL: 38% effective against insects; 27% effective against 
plants 

MPN: 86% effective against insects; 58% effective against 
plants 

You must balance the populations of these various insects for 
an optimum harvest. There is no all-purpose solution to this prob- 
lem, because day-to-day weather will always have a changing 
effect. This means the game can be played over and over again, 
rather than being a repeatable puzzle. See Fig. 1-4 for the flowchart. 

Standard BASIC 

5 PRINT: PRINT" ", "CROPS": PRINT 

7 LETA=0:LETB=0:LETC=0 

10 REM* CROPS PLANTED * 

12 LETD=500:LETT=500 

14 REM* INITIAL INSECT POPULATION * 

16 LET F=INT(RND(0)*500)+1:LET G=0 

18 LETN=INT(RND(0)*500)+1:LETI=0 

19 LET S==INT(RND(0)*500)+1:LET E=INT(RND(0)*100)-9 

20 REM* DAY'S REPORT * 
22 LETC=C+1 

24 LET W=INT(RND(0)*10)+1) 
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26 PRINTYOU HAVE ";D;" DRECKMELON PLANTS, ";T; 

28 PRINT'TREPHULE BUSHES'M;" IRRIGATION DITCHES" 

30 PRINT:PRINT F;" FRUBEES",N;" NELLUM SPIDERS", 

32 PRINT S;" STRUNKFLIES",G;" GUNTHERBUGS" 

34 PRINT'DAY #";C,"TEMPERATURE ";E;" DEGREES", 

36 IF E<40 THEN GOSUB 235 

40 IF A>5 THEN GOTO 200 

45 IF W>4 THEN GOTO 205 

50 LETA=A+1 

52 PRINT'DRY DAY":PRINT 

54 LETE=E+INT(RND(0)*25)-11 

56 LET X=RND(0)*F/1000 

58 LET Y=T*X:LET T=T+INT(Y):LET D=D-EMT(Y) 

60 LET X=INT(RND(0)*S)+1 

62 LET Y=INT(RND(0)*10)+5) 

64 IF B>Y THEN GOSUB 220 

66 LETX=X/1500 

68 LET T=INT(T-(T*X)) 

70 LET X=(RND(0)*N)/5 

72 LET S=S-INT(X) : LET F=F-INT(X) 

74 G=G+(I*INT(RND(0)*100+1) 

76 IF G<5 THEN GOTO 85 

78 REM* LINES 55 TO 95 ARE CROP & INSECT ADJUST* 

80 LET X=(INT(RND(0)*G+l))/20 

82 LET D=D-INT(X) 

84 LET X=(INT(RND(0)*G)+l)/20 

86 LET T=T-INT(X):LET X=A-I 

88 IF X>5 THEN GOSUB 260 

90 LETX=C/20 

92 IF X=INT(X) THEN GOTO 275 

93 LETX=D+T 

94 IF X<50 THEN GOTO 350 

95 IF X>4000 THEN GOTO 370 

96 REM* THE PLAY* 

97 PRINT! TO RELEASE INSECTS. 2 TO SPRAY INSECTICIDE," 

98 LET G=INT(G+(G*. 1)):LET F=EMT(F+(F*. 11)) 

99 LET S=INT(S+(S*. 12)): LET N=INT(N+(N*. 15)) 

100 PRINT'S TO DIG IRRIGATION DITCH 4 TO CLOSE OLD" 

102 PRINT'OLD DITCH OR TO PASS" 

104 INPUT L 

106 IF L=l THEN GOTO 300 

108 IF L=2 THEN GOTO 125 

110 IF L=3 THEN LET 1=1+1 

115 IF L=4 THEN LET 1=1-1 

117 IF Kl THEN LET 1=0 

120 GOTO 20 

125 REM* INSECTICIDE * 
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Fig. 1-4. Cropsflowchart. 

127 PRINT'l FOR DDS, 2 FOR RQL, OR 3 FOR MPN" 

130 INPUT L 

132 IF L=l THEN GOTO 160 

135 IF L=2 THEN GOTO 180 

137 REM* MPN EFFECTS * 

140 LETD=INT(D-(D*.58)) 

142 LETT=INT(T-T*,58)) 

144 LET S=INT(S-S*.86)) 

146 LETN=INT(N-(N*.86» 

148 LETF=INT(F-(F*.86)) 

150 LET G=INT(G-(G*.86)) 

155 GOTO 20 
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160 REM* DDS EFFECTS • 

162 LET D=D-INT(D* .025) 

164 LET T=T-INT(T*.025) 

166 LETS=S-INT(S*.13) 

168 LETN=N-INT(N*.13) 

170 LETF=F-INT(F*.13) 

172 LETG=G-INT(G*.13) 

175 GOTO 20 

180 REM* RQL EFFECTS * 

182 LET D=D-INT(D*.27) 

184 LET T=T-INT(T*.27) 

186 LET S=S-INT(S*.38) 

188 LET N=N-INT(N*.38) 

190 LET F=F-INT(F*.38) 

192 LET G=G-INT(G*.38) 

195 GOTO 20 

200 REM* RAIN SELECT * 

202 IF W<7 THEN GOTO 50 

205 PRINT "RAIN" 

207 LETA=A-3 

210 IF A<1 THEN LET A=0 

215 GOTO 54 

220 REM* WEATHER EFFECTS * 

222 LETZ=INT(X/200) 

224 IF D>Z THEN GOTO 230 

226 LET D=INT(D-(RND(0)*D/6)) 

228 RETURN 

230 LET D=INT(RND(0)*Z+2*(Z/3) 

232 RETURN 

235 LETB=B+1 

240 IF E<20 THEN LET B=B+.5 

245 IF E<10 THEN LET B=B+.75 

250 IF E<0 THEN LET B=B+1 

255 RETURN 

260 REM * DROUGHT DAMAGE • 

262 LETJ=(INT(RND(0)*100)+1)/100 

264 LET K=(INT(RND(0)*100)+1)/100 

266 LETD=D-(J*D) 

268 LETT=T-(T*K) 

270 LET D=INT(D):LET T=INT(T) 

272 RETURN 

275 REM* CROP GROWTH * 

280 LETY=D*1.5 

285 LET D=D+INT(RND(0)*Y+1) 

290 LETY=T*1.5 

292 LET T=T+INT(RND(0)*Y- 1) 

295 RETURN 
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300 PRINT' 1 FOR STRUNKFLIES. 2 FOR NELLUM SPIDERS, 3" 

305 PRINT-FOR FRUBEES, OR 4 FOR GUNTHERBUGS" 

307 INPUT X 

310 PRINT"HOW MANY "; 

312 INPUT Y 

315 IFY<0THENLETY=0-Y 

317 LETY=INT(Y) 

320 IF X=4 THEN GOTO 340 

322 IF X=l THEN LET S=S+Y 

325 IF X=2 THEN LET N=N+Y 

330 IF X=3 THEN LET F=F+Y 

335 GOTO 20 

340 PRINT-WHY WOULD YOU WANT ";Y;" MORE 

GUNTHER BUGS!?" 

342 LETG=G+Y 

345 GOTO 20 

350 REM* LOSE * 

352 PRINT'YOU'VE SUCCEEDED IN KILLING OFF MOST OF 

YOUR" 

355 PRINT-CROPS. YOU'RE DOWN TO ";D;"DRECKMELON 
PLANTS" 

360 PRINTAND ";T;" TREPHULE BUSHES" 

362 PRINT 

365 PRINT-WHAT A LOUSY FARMER!" 

367 END 

370 PRINT" WOW!" 

375 PRINT-YOU HAVE ";D;" DRECKMELON PLANTS AND" 

380 PRINT T;" TREPHULE BUSHES" 

385 PRINT 

390 REM * WIN* 

395 PRINT-YOU DESERVE AN AWARD IN AGRICULTURE!" 

400 END 
TRS-80 BASIC 

5 CLS:P."","CROPS":P.:A=0 

10 B=0:C=0:D=500:F=RND(500):G=0 

15 I=0:N=RND(500):S=RND(500):T=500:E=RND(100)- 10 

20 C=C+1:W=RND(10) 

25 P."YOU HAVE ";D:" DRECKMELON PLANTS, ";T; 

30 P. "TREPHULE BUSHES".I;" IRRIGATION DITCHES":P. 

32 P.F.;"FRUBEES".N;"NELLUM SPIDERS".S;" 
STRUNKFLIES", 

34 P.G.;"GUNTHERBUGS'*:P."DAY #";C, "TEMPERATURE" 
;E;"DEGREES", 

36 IF E<40 GOS.235 

40 IFA>5G.200 

45 IF W>4 G.205 



45 



50 A=A+1:P."DRY DAY": P. 

55 E=E+RND(25)- 12:X=RND(F)/1000:Y=T*X:T=T+INT(Y) 

:D=D-IN+(Y) 

60 X=RND(S) :Y=RND(10)+4:IF B>Y GOS.220 

65 X=X/1500:T=INT(T-(T*X)) 

70 X=RND(N)/5:S=S-INT(X): G=G+(I*RND(100)):F=F- INT(X) 

75 IFG<5G.85 

80 X=INT(RND(G)/20):D=D-X:X=INT(RND(G)/20):T=T-X 

85 X=A-I:IF X>5 GOS.260 

90 X=C/20:IF X=INT(X) G.275 

92 X=D+T:IF X<50 G.350 

93 IF X>4000 G.370 

95 P."l TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3" 

97 G=INT(G+(G*. 1)):F=INT(F+(F*. 11)):S=INT(S+(S*. 12)) 

98 N=N+INT(XM5) 

100 P. "TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH," 

102 IN."OR TO PASS ";L 

105 IF L=l G.300 

110 IFL=2G.125 

115 IF L=3 THEN 1=1+1 

117 IF L=4 THEN 1=1-1 

118 IF Kl THEN 1=0 
120 G.20 

125 IN.'l FOR DDS, 2 FOR RQL OR 3 FOR MPN ";L 

130 IFL=1G.160 

135 IFL=2G.180 

140 D=INT(D-(D*.58)):T=T-INT(T*.58) 

145 S=S-(INT(S*.86)):N=N-INT(N*.86) 

150 F=F-INT(F*.86):G=INT(G-(G*.86) 

155 G.20 

160 D=D-INT(D*.025):T=T-INT(T*.025) 

165 S=S-INT(S*.13):N=N-INT(N*.13) 

170 F=F-INT(F*.13):G=G-INT(G*.13) 

175 G.20 

180 D=D-INT(D*.27):T=T-INT(T*.27) 

185 S=S-INT(S*.38):N=INT(N-(N*.38)) 

190 F=F-INT(F*.38):G=G-INT(G*.38) 

195 G.20 

200 IFW<7G.50 

205 P."RAIN":A=A-3 

210 IFA<1THENA=0 

215 G.55 

220 Z=INT(X/200):IF D<Z G.230 

225 D=INT(D-RND(D/6)):RET. 

230 D=INT(RND(Z/3)+2*(Z/3)):RET. 

235 B=B+1 

240 IF E<20 THEN B=B+.5 
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245 IFE<10THENB=B+.75 

250 IF E<0 THEN B=B+1 

255 RET. 

260 J=RND(100)/100:K=RND(100)/100 

265 D=INT(D-a*D)):T=INT(T-(T*K)) 

270 RET. 

275 D=D+INT(D*1.5):T=T+INT(T*1.5) 

280 RET. 

300 P. "1 FOR STRUNKFLIES, 2 FOR NELLUM SPIDERS, 3" 

305 P. "FOR FRUBEES, OR 4 FOR GUNTHERBUGS" 

307 IN.X 

310 IN. "HOW MANY";Y:Y=INT(Y) 

315 Y=ABS(Y):IF X=4 G.340 

320 IF X=l THEN S=S+Y 

325 IFX=2THENN=N+Y 

330 IF X=3 THEN F=F+Y 

335 G.20 

340 P/ 4 WHYWOULDYOUWANT";Y;"MOREGUNTHERBUGS?!?" 

345 G=G+Y:G.20 

350 P. "YOU'VE SUCCEEDED IN KILLING OFF MOST OF YOUR" 

355 P. "CROPS. YOU'RE DOWN TO ";D;"DRECKMELON PLANTS" 

360 P. "AND ";T;" TREPHULE BUSHES":P. 

365 P."WHATALOUSYFARMER!":END 

370 P."WOW!" 

375 P. "YOU HAVE ";D;"DRECKMELON PLANTS AND ";T 

380 P. "TREPHULE BUSHES" 

385 P.:P."YOU DESERVE AN AWARD IN AGRICULTURE!" 

390 END 

Summary of Variables Used 

A Number of dry days 

B Number of cold days 

C Day number 

D Number of dreckmelon plants 

E Temperature 

F Number of frubees 

G Number of guntherbugs 

I Number of irrigation ditches 

J Various calculations 

K Various calculations 

N Number of nellum spiders 

S Number of strunkflies 

T Number of trephule bushes 

W Rain or dry 

X Various calculations 

Y Various calculations 

Z Various calculations 

H, M, O, P, Q, and R are not used in this program. 
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Sample Run (Excerpt) 

YOU HAVE 500 DRECKMELON PLANTS, 500 

TREPHULE BUSHES, IRRIGATION DITCHES, 

397 FRUBEES, 284 NELLUM SPIDERS, 152 STRUNKFLIES, 

GUNTHERBUGS 

DAY#1 TEMPERATURE 70 DEGREES 

RAIN 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR TO PASS ?2 

1 FOR DDS, 2 FOR RQL, OR 3 FOR MPN? 2 

YOU HAVE 365 DRECKMELON PLANTS, 451 

TREPHULE BUSHES, IRRIGATION DITCHES, 

273 FRUBEES, 203 NELLUM SPIDERS, 94 STRUNKFLIES, 

GUNTHERBUGS 

DAY #2 TEMPERATURE 68 DEGREES 
DRY DAY 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR TO PASS ?1 

1 FOR STRUNKFLIES, 2 FOR NELLUM SPIDERS, 3 

FOR FRUBEES, OR 4 FOR GUNTHERBUGS 

?1 

HOW MANY? 100 

YOU HAVE 332 DRECKMELON PLANTS, 503 

TREPHULE BUSHES, IRRIGATION DITCHES, 

303 FRUBEES, 233 NELLUM SPIDERS, 187 STRUNKFLIES 

GUNTHERBUGS 

DAY #3 TEMPERATURE 77 DEGREES 
DRY DAY 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR TO PASS ?3 

YOU HAVE 299 DRECKMELON PLANTS, 567 

TREPHULE BUSHES, 1 IRRIGATION DITCHES, 

296 FRUBEES, 267 NELLUM SPIDERS, 169 STRUNKFLIES 

GUNTHERBUGS 

DAY #4 TEMPERATURE 69 DEGREES 
RAIN 

1 TO RELEASE INSECTS, 2 TO SPRAY INSECTICIDE, 3 
TO DIG IRRIGATION DITCH, 4 TO CLOSE OLD DITCH, 
OR TO PASS ?2 

1 FOR DDS, 2 FOR RQL, OR 3 FOR MPN? 3 
YOU HAVE 91 DRECKMELON PLANTS, 257 
TREPHULE BUSHES, 1 IRRIGATION DITCHES, 

36 FRUBEES, 38 NELLUM SPIDERS, 19 STRUNKFLIES, 

14 GUNTHERBUGS 

DAY #5 TEMPERATURE 61 DEGREES 

RAIN 
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There's Gold 
In Them There Skyscrapers 

The directions for playing this game are included in the pro- 
gram listing, steps 450 to 520. You may omit these steps from the 
program along with steps 15, 20, and 525 to 575 if you want to save 
program space. 

The building layout is included in the array. A(l) to A(100) are 
set to 0,2,3, or 4. Obviously each array position stands for a room. 
If a given array position is equal to 2, that's the room holding the 
gold. This can be any room from #2 to #100 (step 145). Room #1 is 
the room the game starts in, but it would be a very short game if the 
gold was found there. 

If the array position is equal to 3 that room has an exit from the 
building. Three of the rooms from 1 to 10 have an exit. These are 
designated as the ground floor since an exit on the 8th floor 
wouldn't be too good an idea. 

Any of the upper rooms (from 11 to 100) might have a trap door 
(designated by a 4 in the array position). If you enter one of these 
rooms, you will fall to the room immediately below it. For exam- 
ple, room 73 would drop you to room 63. Since each array position 
can hold only one number, the gold won't be in a room with a trap 
door. 

A zero in the array position is just a space holder with no 
particular meaning. 

If the room has the appropriate doors, you can move to the 
room on the immediate right, left, above or below the room you're 
in. The doors are set in array positions A(101) to A(500). A(101) to 
A(200) determine which rooms have doors to the right (room 38 
would correspond to A(138). A(201) to A(300) are the doors to the 
left. A(301) to A(400) are the doors to the rooms above, and A(401) 
to A(500) are the doors to the rooms below. A 1 in any given array 
position indicates the presence of that particular door, while a 
signifies its absence. (NOTE: you can't always get out of a room the 
way you came in). 

In step 30 all the doors are set to 1, then the impossible doors 
are removed (steps 40 to 60). These are the doors along the 
perimeter of the building. There is no room to the left of room 41, 
for instance, so there shouldn't be a door there, either. 

Finally up to 250 of the remaining 360 doors are randomly 
moved. It's theoretically possible for you to find yourself in a room 
with no doors at all. If this happens you have to hit the 'BREAK' key 
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to get out of the dead-ended program. I haven't included any 
protection against this kind of thing because it would take a great 
deal of program space, and the odds are the problem will never 
come up anyway. It's possible, but unlikely. 

Your moves are limited to Right, Left, Up, Down, or Exit (you 
can use just the first letters or type out the entire word). Any other 
entry is an invalid move, but the number of moves will still be 
incremented by 1, worsening your score. If you try to use a door 
that isn't there, you'll receive the error message from step 355, and 
it will be treated as an invalid move. 

The only way to end the game is to either BREAK the pro- 
gram, or leave the building via one of the exits either with the gold 
(you win) or empty-handed (you lose). After playing a few games 
you can determine for yourself what kind of score to consider "par." 
I've seen scores of 150 add up in this game, and once I lucked out 
and left with the gold in a mere 5 moves. 

You can alter the odds by changing step 75. This step begins 
with the command Y=RND(250). Y is the number of doors to be 
randomly removed (the number might be reduced if the computer 
decides to remove certain doors more than once). If you want an 
easier game you can change this command to Y=RND(100). Or you 
might try Y=RND(15Q)+150. There could be up to 300 doors 
removed (out of 360!), and at least 150 will be removed (except 
where the computer gets redundant and gives you a break). If you 
alter this command, be sure to re-enter the rest of step 75 as it is 
written in the original program. See Fig. 1-5 for the flowchart 
Standard BASIC 

5 CLS:PRINT:FOR X=l TO 100: LET A(X)=0:NEXT X 

10 PRINT 4 GOLD IN THEM THERE SKYSCRAPERS" 

15 INPUT'ENTER 1 FOR INSTRUCTIONS OR 2 FOR GAME ";X 

20 IF X=l GOTO 450 

25 REM ** PUT DOORS IN ALL ROOMS 

30 FOR X=101 TO 500:LET Z(X)=1:NEXT X 

35 REM ** REMOVE IMPOSSIBLE DOORS 

40 FOR X=391 TO 410: LET A(X)=0:NEXT X 

45 LET Y=201:FOR X= 1 TO 10 

50 LETA(Y)=0:LETY=Y+10:N£XTX 

60 LET Y=110:FOR X=1TG 10 

65 LETA(Y)=0:LETY=Y+10:NEXTX 

70 REM ** REMOVE RANDOM DOORS 

75 LET Y=INT(RND(1)*250H1 

80 FOR X= 1 TO Y:LET Z=INT(RND(1)*400)+101 

90 LETA(Z)=0:NEXTX 
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100 REM ** PLANT TRAP DOORS 

105 LET Y=INT(RND(1)*20)+1 

110 FOR X=l TO Y:LET Z=INT(RND(1)*90)+11 

120 LET A(Z)=4:NEXT X 

125 REM ** PLANT EXITS & GOLD 



C 



RUN 



J 



SET UP BUILDING, INITIALIZE 
VARIABLES & HIDE GOLD 



DISPLAYREPORT 



SET NEW 
LOCATION 




YES 



WIN 



i . * ■ i 



c 



END 



D 



PUT INTO 
MEMORY 



Fig. 1-5. Rowchartfor There's Gold in Them There Skyscrapers. 
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130 FOR X=l TO 3: LET Y=INT(RND(1)*10)+1 

135 LET A(Y)=3:NEXT X 

140 LET X=INT(RND(1)*99)+2:LET A(X)=2 

150 REM ** SET GAME VARIABLES 

155 LET M=l: LET P=1:LET G=0 

160 LET E=20:LETU=10:LET D=- 10 

170 LETR=1:LETL=-1 

200 PRINT'MOVE #";M:LET M=M+1 

205 PRINTYOU ARE IN ROOM #";P 

210 LETX=A(P) 

215 IF X=2 GOSUB 400 

220 IF X=3 PRINT'THERE IS AN EXIT." 

225 IF X=4 GOTO 420 

230 PRINTYOU CAN MOVE IN THE FOLLOWING DIRECTIONS 

235 LET Y=P+100:IF A(Y)=1PRINT"RIGHT "; 

240 LET Y=P+200:IF A(Y)=1 PRINT'LEFT "; 

245 LETY=P+300:IFA(Y)=1PRINT"UP"; 

250 LET Y=P+400:IF A(Y)=1 PRINT'DOWN "; 

255 PRINT: PRINT 

260 INPUT' YOUR MOVE"; Q 

265 IF Q=E GOTO 300 

270 IF Q=R GOTO 340 

275 IF Q=L GOTO 370 

280 IF Q=U GOTO 380 

285 IF Q=D GOTO 390 

290 PRINT "INVALID MOVE!" 

295 GOTO 200 

300 IF A(P)=E GOTO 310 

305 GOTO 290 

310 PRINT "YOU HAVE JUST LEFT THE BUILDING WITH"; 

315 IF G=0 PRINT'OUT"; 

320 PRINT "THE GOLD." 

325 LETM=M-1 

330 PRINT "IT TOOK YOU ";M;" MOVES." 

335 END 

340 REM ** MOVE = RIGHT 

345 LETX=P+100 

350 IF A(X)=1 GOTO 365 

355 PRINTYOU JUST RAN INTO A WALL, CLOD!" 

360 GOTO 200 

365 LET P=P+Q: GOTO 200 

370 REM ** MOVE = LEFT 

375 LET X=P+200: GOTO 350 

380 REM** MOVE = UP 

385 LET X=P+300: GOTO 350 

390 REM ** MOVE = DOWN 
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395 LET X=P+400: GOTO 350 

400 PRINT "YOU JUST FOUND THE GOLD!" 

405 LETA(P)=0:LETG=1 

410 RETURN 

420 PRINT'TRAP DOOR!" 

425 LETP=P-10 

430 FOR X=lTO 333: NEXT X 

440 GOTO 200 

Secret Passageway Option (Standard BASIC) 

122 LETY=INT(RND(1)*40)+1:FORX=1TOY 

123 LETZ=INT(RND(1)*100)+1 

124 LETA(Z)=5:NEXTX:LETS=5 

227 IF X=5 PRINT "THERE IS A SECRET PASSAGEWAY" 

287 IF Q=S GOTO 600 

600 IFA(P)=5GOTO620 

610 GOTO 290 

620 CLS:LETP=INT(RND(1)'100)+1 

630 FOR X=l TO 456: NEXT X 

640 GOTO 200 

TRS-80 BASIC 

10 CLS:P. :P." "."GOLD IN THEM THERE SKYSCRAPERS" 

15 F.X=101TO500:A(X)=1:N.X:F.X=1TO100:A(X)=0N.X 

20 F.X=391TO410:A(X)=0:N.X:Y=201:F.X=TO10 

25 A(Y)=0:Y=Y+10:N.X:Y=U0:F.X=1TO10 

30 A(Y)=0:Y=Y+10:N.X 

40 Y=RND(250):F.X=1TOY:Z=RND(400)+100 

45 A(Z)=0:N.X:M=1:P=1:G=0:E=20 

50 Y=RND(20):F.X=1TOY:Z=RND(90)+10:A(Z)=4:N.X 

55 U=U0:D=- 10:R=1:L=- 1:F.X=1T03: Y=RND(10) 

60 A(Y)=3:N.X:X=RND(99)+1:A(X)=2 

100 P. "MOVE #";M:M=M+1:P."Y0U ARE IN ROOM #";P 

105 X=A(P):IF X=2 GOS.250 

110 IFX=3P."THEREISANEXIT." 

115 IFX=4G.260 

120 P."YOU CAN MOVE IN THE FOLLOWING DIRECTIONS--" 

125 Y=P+100:IF A(Y)=1 P."RIGHT "; 
1300 Y=P+200:IF A(Y)=1 P."LEFT "; 
135 Y=P+300:IFA(Y)=1P."UP"; 
140 Y=P+400:IF A(Y)=1 P. "DOWN "; 

145 P.:P.:IN."YOUR MOVE";Q:IF Q=E G.180 

150 IFQ=RG.210 

155 IFQ=LG.230 

160 IFQ=UG.235 
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165 IFQ=DG.240 

170 P. "INVALID MOVE! ":G. 100 

180 IFA(P)=EG.190 

185 G.170 

190 P. "YOU HAVE JUST LEFT THE BUILDING WITH"; 

195 IFG=0P. ,, OUT"; 

200 P. "THE GOLD."M=M- 1:P."IT TOOK YOU ";M;" MOVES. 

205 END 

210 X=P+100 

215 IF A(X)=1 G.225 

220 P. "YOU JUST RAN INTO A WALL, CLOD!":G. 100 

225 P=P+Q:G.100 

230 X=P+200:G.215 

235 X=P+300:G.215 

240 X=P+400:G.215 

250 P/'YOU FOUND THE GOLD! ,, :A(P)=0:G=1:RET. 

260 P=P~10:P."TRAP DOOR!":F.X=lTO 333:N.X:G.100 

Secret Passageway Option (TRS-80) 

35 Y=RND(40):F.X=1TOY:Z=RND(100):A(Z)=5:N.X:S=5 

117 IFX=SGOS.300 

167 IFQ=SG.310 

300 P. "THERE IS A SECRET PASSAGE WAY"; RET. 

310 IFA(P)=5G,620 

315 G.170 

320 CLS:P=RND(100):F.X=1TO456:N.X 

330 G.100 

Summary Of Variables Used 

D Move down. D= - 10 

E Exit. E=20 

G Gold located? 

L Move left. L = - 1 

M Move *# 

P Current room 

Q Current move 

R Move right. R = 1 

U Move up. U = 10 

X Set-up & timing variable 

Y 

Z 

Sample Run (Excerpt) 

GOLD IN THEM THERE SKYSCRAPERS 

MOVE #1 

YOU ARE IN ROOM #1 
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YOU CAN MOVE IN THE FOLLOWING DIRECTIONS — 

RIGHT UP 

YOUR MOVE? RIGHT 

MOVE #2 

YOU ARE IN ROOM #2 

THERE IS AN EXIT 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS — 

LEFT UP 

YOUR MOVE? UP 

MOVE #3 

YOU ARE IN ROOM #12 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS - 

RIGHT LEFT UP DOWN 

YOUR MOVE? RIGHT 

MOVE #4 

YOU ARE IN ROOM #13 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS — 

RIGHT LEFT DOWN 

YOUR MOVE? RIGHT 

MOVE #5 

YOU ARE IN ROOM #14 

TRAP DOOR! 

MOVE #6 

YOU ARE IN ROOM #4 

THERE IS AN EXIT 

YOU CAN MOVE IN THE FOLLOWING DIRECTIONS - 

RIGHT LEFT UP 

YOUR MOVE? EXIT 

YOU HAVE JUST LEFT THE BUILDING WITHOUT THE GOLD 

IT TOOK YOU 6 MOVES 
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Lost In The Jungle 



This is an adventure game of the type increasingly popular 
among computer hobbyists. The player has an objective (getting out 
of the jungle alive) and the computer offers various obstacles to the 
goal (wolves, lions, black widow spiders, waterholes, quicksand, 
poisonous berries). The player is then offered a series of options to 
select from. The computer analyzes the results of each choice, 
usually with an element of weighted randomness. On each move 
the player moves one mile in any of the four basic directions (north, 
south, east, or west). 

An added trick to this game is the main scoring variables 
(distance to the outside of the jungle, and the player's remaining 
strength). If you're not careful you may suddenly find yourself 
dropping from exhaustion. You can build up your level of strength 
by eating, but watch out! Some of the food you'll come across might 
turn out to be tainted. 

If you get close to the edge of the jungle you'll be told you can 
see light through the trees ahead. 

Unlike many adventure games, the obstacles are randomly 
placed and the solutions are randomly weighted to keep the game 
interesting even after you've played it a number of times. See Fig. 
1-6 for the flowchart. 

Standard Basic 

2 LETA=11;LETB=12 
4 LETC=13:LETD=14 
6 LETE=25:LETM=20 
8 LETH=12:LETK=100 
10 L£TF=INT(RND(0)*50)+21 
18 PRINT:PRINT 

20 PRINT* ","LOSTINTHEJUNGLE":PRINT 
22 OGSUB500 
25 PRWTYQU ARE LOST IN A JUNGLE. YOU HAVE A GUN 

WITH 6" 
30 PRINT'BULLETS, A KNIFE,& A SLINGSHOT. THE TRICK IS 

TO" 
35 PRINTTIND YOUR WAY BACK TO CIVILIZATION WITHOUT 

GETTING" 
40 PRINT'YOURSELFKILLED.EACHMOVEISONEMILE.THE 
JUNGLE" 
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45 PRINT'IS100MILESSQUARE.PRESS'ENTER'TOSTARr 

50 INPUTA$ 

55 PRMT'DO YOU WANT AN EASY, MEDIUM OR HARD 

GAME"; 

60 INPUTJ 

62 LET H=INT(RND(0)*50)+21 

64 LETG=100-F:LETI=100-H:LETM=6 

65 REM* BEGIN GAME* 
70 GOSUB1000 

72 LETZ=X:LETS=J-4 

74 REM*EVENTSELECTION* 

76 LETY=INT(RND(0)*S)+1 

78 GOSUB500 

80 IFY=1 THEN GOTO 150 

82 IFY<4THENGOT0225 

85 IFY=4THENGOTO520 

90 IFY=6THENGOTO520 

95 IFY=7THEN GOTO 105 

100 GOTO 70 

105 PRINT'YOUCOMETOABUSHOFBERRIES" 

107 LETY=17:LETN=18 

110 PRINT'DOYOUEATTHEM?"; 

112 INPUT Q 

115 IFQ=17THEN GOTO 122 

117 REM*NOTEATBERRIES* 

120 GOTO 70 

122 REM*EAT BERRIES* 

124 LETK=K+(J/10) 

126 LETL=INT(RND(0)*J)+1 

128 IF L«J*. 75) THEN GOTO 140 

130 PRINT'THEYMAKEYOUQUITEILL" 

132 LETK=K-INT(RND(0)*K) 

135 GOTO 70 

140 REM'BERRIESOK* 

142 LETK=K+<J/10) 

145 GOTO 70 

150 PPJNT'YOUSTEPINTO QUICKSAND!" 

152 GOSUB500 

154 PRINTWHATDOYOUDO?" 

156 PRINTA-TRYTOCLAWYOURWAYOUT' 

158 PRINT'B-GIVEUF' 

160 PRINT'C- GRAB ONTO ATREE BRANCH" 

162 PRINT'D- START PRAYING" 

165 INPUT X 

170 IFX=CTHENGOTO200 

180 PRINT'SORRY "; 
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(^ RUN ^) 

SETVARIABLES 

& PRINT 
INSTRUCTIONS 




QUICKSAND 



WOLF 



LION 



SPIDER 


POND 


BERRIES 



NONE 



^ 



Fig. 1-6. Flowchartfor Lost in the Jungle. 
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QUICKSAND 




DEAD 



DEAD 




FLEE 



SHOOT 



SLINGSHOT 



KNIFE 




TREE 



WOLF WAITS 



© >^v. 



LEAVES 



STARVE 



DEAD 



( END 3 
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HOLDSTfU 




YES 



CRAWLS OFF 



FLEE 



SHOOT 



BRUSH ITOFF 



SHOOT IT 



CRY 



DEAD 



J 



ENp ^ 




SLINGSHOT 




KNIFE 




LION 

CLIMBS 

TREE 



Q END ) 



Fig. 1-6. Flowchart for Lost in the Jungle. 
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SWIM 



DROWN 



PIRANHA 



J 
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f SURVIVE) 

? / YES 





LEAVE 
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185 GOSUB500 

190 PRINT'-YOITREDECEASED." 

195 END 

200 REM* TREE BRANCH ATTEMPT* 

202 LETL=J*10 

204 LETQ=INT(RND(0)*L)+1 

206 IFQ>100THENGOTO215 

208 PMNPYOU DIDN'T MAKE IT" 

210 GOSUB500 

212 GOTO 190 

215 PRINT'YOUMADEIT!" 

217 LETK=K-INT(RND(0)*K*.67) 

220 GOTO 70 

225 REM* ANIMAL ATTACK* 

227 IFY=2THENPRINT'WOLF"; 

230 IFY=3THENPRINT'LION"; 

232 PRINT'AHEAD. WHAT DO YOU DO?" 

234 PRINTA-FLEE" 

236 PRINTB- SHOOT IT" 

238 PRINT 'C - USE YOUR SLINGSHOT" 

240 PRINT'D- USE YOUR KNIFE" 

242 PRINT'E- CLIMB ATREE" 

245 INPUT X 

250 GOSUB500 

252 IF X=A THEN GOTO 285 

255 IF X^=B THEN GOTO 330 

260 IF X=C THEN GOTO 350 

265 IF X=D THEN GOTO 355 

270 IF X=E THEN GOTO 390 

272 REM*NO VALID CHOICE* 

275 LETK=K-1 

277 PRINT'ITS STILL THERE. NOW WHAT?" 

280 GOTO 234 

285 GOSUB1000 

287 REM* FLEE* 

290 IF Z=X THEN GOTO 760 

292 LETQ=INT(RND(0)*J)+1 

294 LETK=K-INT(RND(0)*K/2) 

296 IF Q<9 THEN GOTO 315 

298 PRINT'WHEW!" 

300 GOSUB500 

305 PRINT'YOUMADEIT TO SAFETY!" 

310 GOTO 70 

315 PRINT'IT CATCHES YOU! " 

317 LETK=K-INT(RND(0)*K)+1 

318 IF K< 10 THEN GOTO 185 
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320 LETJ=J-1 

322 PRINT"NOWWHATDOYOUDO?":GOT0234 

325 IF M<1 THEN GOTO 615 

327 GOSUB500 

330 PRINT:PRINT'","BANG!!!":PRINT 

332 LETL=J*2.5:LETM=M-1 

334 GOSUB500 

336 LETQ=INT(RND(0)*L)+1 

338 IFQ>17THENGOTO440 

340 PRINT"YOU MISSED!" 

345 GOTO 315 

350 LETL=J*1.5 

352 GOTO 334 

355 LETL=J*1.7 

357 IFY=3THENLETL=L*2 

360 LETQ=INT(RND(0)*L)+1 

365 IFQ>18 THEN GOTO 440 

370 PRINT'IT OVERPOWERS YOU!" 

372 LETK=K-(2*Q) 

375 IF K< 15 THEN GOTO 185 

380 GOTO 320 

390 IF Y=3 THEN GOTO 430 

392 LETQ=INT(RND(0)*40)+1 

395 GOSUB500 

397 LETK=K-Q 

400 PRINT'THE WOLF DOES NOT LEAVE FOR "; Q; " HOURS" 

405 IF K<7 THEN GOTO 420 

410 PRINT'THEN YOU CAN CLIMB DOWN" 

415 GOTO 70 

420 PRINT"YOU DIE OF THIRST AND STARVATION" 

425 END 

430 PRINT"LIONS CAN CLIMB TREES BETTER THAN PEOPLE. ' 

435 GOTO 185 

440 PRINTGOT'EM!" 

442 GOSUB500 

445 PRINT'DOYOUEATIT?" 

447 PRINT'A-YES" 

450 PRINT"B -NO" 

452 INPUT X 

455 IFX=A THEN LET K=K+J 

460 GOTO 70 

470 PRINT'YOUDROPFROMEXHAUSTION" 

475 GOTO 185 

500 LETW=INT(RND(0)*888)+1 

505 FORV=lTOW 

507 NEXTV 
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510 RETURN 

520 PRINT" A BLACK WIDOW SPIDER LANDS ON YOUR NECK!" 

522 PRINT'WHATDOYOUDO?" 

525 PRINT 'A - HOLD AS STILL AS POSSIBLE" 

527 PRINT'B-TRYTOBRUSHITOFF* 

530 PRINT'C- SHOOT IT" 

532 PRINTD-CRY" 

535 INPUTX 

537 GOSUB500 

540 IF X=A THEN GOTO 580 

542 IF X=B THEN GOTO 580 

545 IFX=C THEN GOTO 570 

550 GOTO 180 

570 PRINT:PRINr , ","BANG!":PRINT 

573 GOSUB500 

575 GOTO 180 

580 LETL=J*4 

582 LETQ=RND(0)*L)+1 

584 IFQ<J*2THENGOTO600 

586 PRINT'IT BITES!" 

588 GOSUB500 

590 GOTO 185 

600 PRINT'IT CRAWLS OFF WITHOUT BITING" 

605 GOTO 70 

615 PRINT'YOUAREOUTOFBULLETS" 

620 GOTO 370 

630 PRINT'YOUCOMETOAFRESHWATERPOND" 

632 PRINT'WHATDOYOUDO?" 

634 PRINT'A- DRINK" 

636 PRINT'B-SWIM" 

638 PRINT'C -LEAVE" 

640 INPUTX 

642 GOSUB500 

645 IFX=ATHENGOTO670 

650 IF X=B THEN GOTO 690 

655 IFX=C THEN GOTO 735 

660 GOTO 640 

670 LETQ=INT(RND(0)*Q)+1 

672 IF Q<6 THEN GOTO 680 

675 LETK=K+(RND(0)*K)-9 

677 GOTO 70 

680 PRINT'IT MAKES YOU QUITE ILL" 

682 LETK=K-INT(RND(0)*K) 

685 GOTO 70 

690 LETQ=INT(RND(0)*4)+1 

692 GOSUB500 
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695 


LETK=K-2 


697 


IF Q=l THEN GOTO 710 


700 


IF Q=2 THEN GOTO 715 


702 


GOSUB500 


705 


GOTO 70 


710 


PRINT'YOU DROWN!" 


712 


GOTO 185 


715 


PRINT'APIRANHA STRIKES!" 


717 


GOSUB500 


720 


LET Q=INT(RND(0)*J)+1 


722 


IF Q<20 THEN GOTO 185 


725 


PRINT"YOU MANAGE TO ESCAPE WITHOUT SERIOUS IN- 




JURY" 


730 


LET K=K-INT(RND(0)*K) 


732 


GOTO 70 


735 


GOSUB1000 


737 


IFZ=X THEN GOTO 750 


740 


GOTO 70 


750 


PPJNT:PRINT ","SPLASH!":PRINT 


755 


GOTO 690 


760 


PRINT'YOU JUST COLLIDED WITH THE"; 


765 


IF Y=2 THEN PRINT"WOLF!" 


770 


IF Y=3 THEN PRINTLION!" 


775 


GOSUB500 


780 


GOTO 185 


1000 


LETK=K-.5 


1002 


PRINT'WHICHWAYDOYOUGO?" 


1004 


PRINT'A-EAST" 


1006 


PRINT'B-WEST" 


1008 


PRINT'C -NORTH" 


1010 


PRINT'D- SOUTH" 


1012 


INPUT X 


1015 


IFX=ATHEN GOTO 1050 


1017 


IF X=B THEN GOTO 1055 


1020 


IF X=C THEN GOTO 1060 


1025 


IF X=D THEN GOTO 1065 


1030 


GOTO 1000 


1050 


LETF=F-1:LETG=G+1 


1052 


GOTO 1070 


1055 


LET F=F+1: LET G=G- 1 


1057 


GOTO 1070 


1060 


LET H=H-1:LET 1=1+1 


1062 


GOTO 1070 


1065 


LETH=H+1:LETI=I-1 


1070 


IF F=0 THEN GOTO 1120 


1075 


IF G=0 THEN GOTO 1120 
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1080 IFH=0THEN GOTO 1120 

1085 IF 1=0 THEN GOTO 1120 

1090 IF K<5 THEN GOTO 470 

1095 IF F< 10 THEN GOTO 1130 

1100 IFG<10THEN GOTO 1130 

1105 IFH<10THEN GOTO 1130 

1110 IF I< 10 THEN GOTO 1130 

1115 RETURN 

1120 PRINT'YOU MADE IT SAFELY BACKTO CIVILIZATION!" 

1125 END 

1130 PRINT'YOU CAN SEE SUNLIGHT THROUGH THE 

TREETOPS!" 

1135 RETURN 

TRS-80 BASIC 

5 A=11:B=12:C=13:D=14:E=25:P.:P. 

10 P." ","LOSTINTHEJUNGLE":P.:GOS.500 

15 P."YOUARELOSTINAJUNGLE. YOU HAVE A GUN WITH 6" 

20 P. "BULLETS, AKNIFE, & A SLINGSHOT THE TRICK IS TO" 

25 P. "FIND YOUR WAY BACK TO CIVILIZATION WITHOUT 
GETTING" 

30 P. "YOURSELF KILLED. EACH MOVE IS ONE MILE. THE 
JUNGLE" 

35 P. "IS 100 MILES SQUARE. PRESS 'ENTER' TO START" 

40 IN.A$:M=20:H=12 

45 IN."DOYOUWANTANEASY, MEDIUM OR HARD GAME";J 

50 K=100:F=RND(50)+20:H=RND(50)+20:I=100-H: 
M=6:G=100-F 

70 GOS.1000:Z=X:S=J-4 

75 Y=RND(S):GOS.500:IFY=1G.150 

80 IFY<4G.225 

85 IFY=4G.520 

90 IF Y=6 THEN GOTO 630 

95 IFY=7G.105 

100 G.70 

105 P. "YOU COME TO A BUSH OF BERRIES": Y=17:N=18 

110 IN."DOYOUEATTHEM";Q:IFQ=17G.120 

115 B.70 

120 K=K+G/10): L=RND(J): IF L<(J*. 75)G. 140 

130 P."THEYMAKEYOUQUITEILL":K=K-RND(K) 

135 G.70 

140 K=K+(J/10):G.70 

150 P."YOU STEP INTO QUICKSAND!":GOS.500 

155 P."WHAT DO YOU DO?"P."A- TRY TO CLAW YOUR WAY 

OUT" 

160 P."B-GIVE UP":P."C- GRAB ONTO ATREE BRANCH" 

165 P."D- START PRAYING":IN.X 
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170 IFX=CG.20O 

180 P."SORRY ";:GOS.500 

190 P. "YOU'RE DECEASED." 

195 END 

200 L=J'10:Q=RND(L):IFQ>100G.215 

205 P/'YOUDIDNTMAKEIT." 

210 GOS.500:G.190 

215 P.'TOUMADE IT!":K=K-INT(RND(K)*.67) 

220 G.70 

225 IFY=2P."WOLF"; 

230 IFY=3P."LION"; 

232 P."AHEAD!":P."WHATDOYOUDO?" 

235 P. "A- FLEE":P."B- SHOOT IT":P."C- USE YOUR 

SLINGSHOT" 

240 P."D-USE YOURKNIFE":P."E- CLIMB ATREE" 

245 IN.X 

250 GOS.500:IFX=AG.285 

255 IFX=BG.330 

260 IFX=CG.350 

265 IFX=DG.355 

270 IFX=EG.390 

275 K=K-l:P."IT'SSTILLTHERE.NOWWHAT?" 

280 G.235 

285 GOS.1000:IFZ=XG.760 

290 Q=RND0(:K=K-INT(RND(K)/2) 

295 IFQOG.315 

300 P."WHEW!": GOS.500:P."YOU MADE ITTO SAFETY!" 

305 B.70 

315 P."ITCATCHESYOU!":K=K-RND(K) 

317 IFK<10G.185 

320 j=J-l :P."NOW WHATDO YOUDO?":G.235 

325 IFM<G.615 

330 GOS.500:P.:P."'\"BANG!!!":P.:L=J*2.5:M=M-1 

335 GOS.500:Q=RND(L):IFQ<17G.440 

340 P."YOU MISSED!" 

345 G.315 

350 L=J*1.5:G.335 

355 L=J*1.7:IFY=3THENL=L*2 

360 Q=RND(L):IFQ>18G.440 

370 P.'TT OVERPOWERS YOU!!": K=K-(2*Q):IF K<15 G. 185 

380 G.320 

390 IFY=3G.430 

395 Q=RND(4)):GOS.500:K=K-Q 

400 P.'THE WOLFDOESNOTLEAVEFOR";Q:"HOURS." 

405 IFK<7G.420 

410 P.'THENYOU CAN CLIMB DOWN":G. 70 
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420 P. "YOU DIE OF THIRST AND STARVATION. " 

425 END 

430 P. "LIONS CAN CLIMB TREES BETTER THAN PEOPLE. " 

435 G. 185 

440 P."GOTEM!":GOS.500:P."DOYOUEATIT?" 

450 P."A™YES":P."B-NO":IN.X 

455 IFX=ATHENK=K+J 

460 G.70 

470 P. " YO U DROP FROM EXHAUSTION": G. 185 

500 W=RND(888) 

505 F.V=lTOW:N.V 

510 RET. 

520 P. "A BLACK WIDOW SPIDER LANDS ON YOUR NECK! 

525 P. "WHAT DO YOU DO?": P. "A- HOLD AS STILL AS 

POSSIBLE" 

530 P. i4 B~TRYTOBRUSHITOFF":P."C-SHOOTIT" 

535 P."D- CRY":IN.X:GOS.500:IFX=AG.580 

540 IFX=BG.580 

545 IFX=CG.570 

550 G.180 

570 P. :P. " ", "B ANG! ": P. : GOS. 500: G. 180 

580 L=J*4:Q=RND(L):IFQ<JG.600 

585 P. "IT BITES!": GOS. 500 

590 G.180 

600 P. "IT CRAWLS OFF WITHOUT BITING": G. 70 

615 P."YOUAREOUTOFBULLETS!":G.370 

630 P. "YOU COME TO A FRESH WATER POND": P. "WHAT DO 

YOU DO?" 

635 P. "A- DRINK":P."B- SWIM":P."C- LEAVE" 

640 IN.X 

645 GOS.500:IFX=AG.670 

650 IFX=BG.690 

660 IFX=CG.735 

665 G.640 

670 Q=RND(J).TFQ<6G.680 

675 K=K+(RND(K)-10):G.70 

680 P. "IT MAKES YOU QUITE ILL" 

685 K=K-RND(K):G.70 

690 Q=RND(4):GOS.500:K=K-2:IFQ=1G.710 

700 IFQ=2G.715 

705 GOS. 500: G.70 

710 P. "YOU DROWN ! ": GOS. 500: G. 190 

715 P. "A PIRANHA STRIKES! !": GOS. 500: Q=RND(J) 

720 IFQ<20G.185 

725 P. "YOU MANAGE TO ESCAPE WITHOUT SERIOUS INJURY" 

730 K=K-RND(K):G.70 
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735 GOS.1000:IFZ=XG.750 

740 G.70 

750 P. : P. '* ", "SPLASH!": P. G. 690 

760 P. "YOU JUST COLLIDED WITH THE "; 

765 IFY=2P."WOLF!" 

770 IFY=3P."LION!" 

775 GOS.500:G.185 

1000 K=K-.5:P/'WHICHWAYWILLYOUGO?" 

1005 P. "A- EAST":P. U B™ WEST": P. X™ NORTH" 

1010 P. "D- SOUTH": IN. X: IF X=A G. 1050 

1015 IFX=BG.1055 

1020 IFX=CG.1060 

1025 IFX=DG.1065 

1030 G.1000 

1050 F=F-1:G=G+1:G.1070 

1055 F=F+1:G=G-1:G.1070 

1060 H=H~1:I=I+1:G.1070 

1065 H=H+ 1:1=1-1 

1070 IFF=0G.1120 

1075 IFG=0G.1120 

1080 IFH=0G.1120 

1085 IF 1=0 G. 1120 

1090 IFK<5G.470 

1095 IFF<10G.1130 

1100 IFG<10G.1130 

1105 IFH<10G.1130 

1110 IFI<10G.1130 

1115 RET. 

1120 P/TOUMADEITSAFELYBACKTOCIVILIZATION!" 

1125 END 

1 130 P. "YOU CAN SEE SUNLIGHT THROUGH THE TREETOPS! " 

1140 RET. 

Summary Of Variables Used 

A OPTION SELECTOR 

B OPTION SELECTOR 

C OPTION SELECTOR 

D OPTION SELECTOR 

E OPTION SELECTOR/EASY GAME 

F DISTANCE EAST 

G DISTANCE WEST 

H DISTANCE NORTH/HARD GAME 

I DISTANCE SOUTH 

J GAME DIFFICULTY 

K STRENGTH 
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L CHANCE SELECTOR 

M MEDIUM GAME/# OF BULLETS LEFT. 

Q CHANCE SELECTOR 

S CHANCE SELECTOR 

W TIMING 

X SELECTED OPTION 

Y CHANCE SELECTOR 

Sample Run (Excerpt) 

DO YOU WANT AN EASY, MEDIUM OR HARD GAME? EASY 

WHICH WAY WILL YOU GO? 

A- EAST 

B-WEST 

C- NORTH 

D- SOUTH 

?C 

A BLACK WIDOW SPIDER LANDS ON YOUR NECK! 

WHAT DO YOU DO? 

A - HOLD AS STILL AS POSSIBLE 

B - TRY TO BRUSH IT OFF 

C- SHOOT IT 

D-CRY 

?A 

IT CRAWLS OFF WITHOUT BITING 

WHICH WAY WILL YOU GO? 

A -EAST 

B-WEST 

C- NORTH 

D- SOUTH 

?A 

LION AHEAD! 

WHAT DO YOU DO? 

A -FLEE 

B- SHOOT IT 

C - USE YOUR SLINGSHOT 

D- USE YOUR KNIFE 

E- CLIMB A TREE 

?B 



BANG! 



YOU MISSED 

IT CATCHES YOU 

NOW WHAT DO YOU DO? 

A -FLEE 

B- SHOOT IT 

C - USE YOUR SLINGSHOT 
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D- USE YOUR KNIFE 
E- CLIMB A TREE 
?A 

WHICH WAY WILL YOU GO? 

A -EAST 

B-WEST 

C- NORTH 

D- SOUTH 

?D 

WHEW! 

YOUMADEITTO SAFETY! 

WHICHWAYWILLYOUGO? 
A -EAST 

B-WEST 

C- NORTH 

D- SOUTH 

?A 
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Galactic Search 

Galactic Search is another adventure game. While random 
chance plays a part, there's more opportunity for planning strategy 
in this game. The instructions are given within the program. See 
Fig. 1-7 for the flowchart. 

Standard BASIC 

5 FOR X=lTO200.PRINT 
10 LET Y=INT(RND(0)*26)+1 
12 LET A(X)=Y:NEXT X 
15 PRINT'YOU ARE "; 

17 LET A=INT(RND(0)' , '5)+1 

18 FOR X=501TO600:LETY=INT(RND(0)*1000)+l 
20 IF A=l THEN LET A$="AKRANAID" 

22 LET AQ0=Y: NEXT X 

25 IF A=2 THEN LET A$="OLK" 

30 IF A=3 THEN LET A$="ZOLAR ZINNK" 

35 IF A=4 THEN LET A$="GUAMBNA" 

40 IF A=5 THEN LET A$="JOHN DOE" 

45 PRINT A$;"-CAPTAIN OF THE SPACESHIP 

50 PRINT"EVEN1NG STAR' FROM THE PLANET RAMSNEID" 

55 LET J=0:PRINr'RAMSNEID CIRCLES THE STAR KNOWN AS 

FR-972" 
60 PRINT'ANDISINDIRENEEDOFTHERARE 

SUBSTANCE.BRETCHENKOEL" 

65 PRINT'THEREISNOBRETCHENKOELLEFTINTHESOLAR 

SYSTEM" 
70 PRINT'AND WITHOUT THIS SUBSTANCE TO FUEL THE 

PLANET'S" 
75 PRINT'POWER STATIONS, YOUR PEOPLE WILL DIE OUT." 
80 PRINT'THIS IS WHY THE RAMSNEIDIANS HAVE TAKEN UP 

SPACE" 
85 PRINT 'TRAVEL, DESPITE ITS STRANGE & UNPREDICTABLE 

DANGERS" 
87 FOR X=201 TO 300 
90 LET Y=INT(RND(0)*999)+1 
92 LET A(X)=Y:NEXT X 
94 PRINT'YOUR MISSION, CAPTAIN "A$:", IS TO SEARCH 

THE" 
96 PRINT'GALAXY FOR MORE BRETCHENKOEL. YOU WILL 

BE" 
100 PRINT'FLYING BY GUESS WORK MOST OF THE TIME" 
102 FOR X=301 TO 400 

72 



CO 

I 

o 



CO 
0> 
CD 
o 

B 

CO 

o 







73 



104 LET Y=INT(RND(0)*17)+1 

106 IF Y=17 THEN Y=0 

108 IFY=1THENY=0 

110 LET A(X)=Y:NEXT X 

115 GOSUB 1230 

117 PRINTOUT WATCH OUT FOR METEORS, AND THE 

GREATLY FEARED" 

120 PRINT'WAR-LOVING THYLTHRENS!" 

122 FOR X=401TO500 

124 LET Y=INT(RND(0)*10)+1 

126 LET A(X)=Y:NEXT X 

128 LETN=15 

130 PRINT'ARE YOU PREPARED TO UNDERTAKE THIS 

MISSION"; 

132 INPUT X 

135 IF X=Y GOTO 180 

140 IF X=N GOTO 160 

145 PRINTIYOU MUST ANSWER YES OR NO,";A$ 

150 GOTO 130 

160 PRINT'YOU ARE A GREAT SHAME TO YOUR RACE,"; A$;"I" 

162 PRINT: GOSUB 2000 

164 PRINT" ","GOOD-BYE!" 

166 END 

180 PRINT:PRINT 

182 LETZ=1:LETT=1 

185 LFTG=30000:LETJ=0 

195 REM* THE PLAY* 

200 PRINT"WARP DRIVE"; 

202 INPUT X 

204 LETT=T+1 

206 IF X> 50 THEN GOTO 1000 

208 LET F=100:LET A=200 

210 PRINT'FORE OR AFT'; 

212 INPUT Y 

215 IF Y=F THEN GOTO 240 

220 IF Y=A THEN GOTO 240 

225 LETT=T+3 

230 GOSUB 2100 

235 GOTO 200 

240 LET B=X*10:LET C=B/2 

242 GOSUB 1130 

244 GOSUB 2100 

246 FOR L=l TO CrPRINT" * "; 

248 FOR M=1T0234:NEXT M 

250 NEXTL 

252 LETG=G-B 
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254 IF G<1 THEN GOTO 1150 

256 IF Y=A THEN GOTO 1200 

260 LETZ=Z+X 

265 IF Z>100 THEN GOTO 1220 

270 IF Z<1 THEN GOTO 1220 

275 IF Z=l THEN GOTO 1300 

280 LETS=Z-1 

285 PMNT'YOU ARE ";S; M SECTORS FROM HOME" 

290 GOSUB1500 

295 LET A=Z+100:LET B=Z+200 

300 LETC=Z+300:LETD=Z+400 

302 LETE=Z+500 

305 PRINTTHE NEAREST STAR IS"; 

307 LETK=A(Z) 

310 GOSUB1240 

312 LETK=A(A) 

314 GOSUB1240 

316 PRINT"*"; 

318 LET K=A(B):PRINT K 

320 PRINT'DISTANCE IS "; 

322 LETK=A(E) 

324 PRINT K;" LIGHT YEARS" 

326 IF A(Z)=6 THEN GOTO 1320 

330 LETP=A(C) 

332 PRINTTHERE ARE ";P"PLANETS" 

335 LETH=A(D) 

340 PRINT H;" THYLTHRENS IN SOLAR SYSTEM" 

345 LETN=601 

350 FORM=lTOP 

355 LETA(N)=INT(RND(0)*40)+1 

357 LET N=N+1:NEXT M 

360 IF H>0 THEN GOTO 830 

365 PRINT! FOR SCAN-2 FOR SOLAR APPROACH-3 FOR 

WARP"; 

367 INPUTS 

370 IF S=3 THEN GOTO 200 

375 IF S=2 THEN GOTO 800 

380 IF S=l THEN GOTO 430 

385 PRINTBAD INPUT!!!" 

387 GOSUB2000 

390 PRINT'COMPUTER JAMMED!" 

392 GOSUB2000 

394 PRINT:LETS=ABS(S) 

396 LETT=T+S+1 

398 GOSUB2000 

400 GOSUB2100 
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402 LET S=INT(RND(0)*5)+1 

405 IF S=4 THEN GOTO 365 

410 IF S=5 THEN GOTO 365 

415 GOTO 370 

430 REM* SCAN MODE* 

432 IF K>5000THEN GOTO 635 

435 PRINT" "."SCANNING ": PRINT 

437 LET N=601:FOR Q=l TO P 

440 LETO=A(N) 

442 GOSUB2000 

444 PRINT"PLANET #";Q, 

446 GOSUB 2000 

448 LETN=N+1 

450 PRINT O 

455 NEXTQ 

457 GOSUB 2000 

460 LETT=T+.67 

462 GOSUB 2100 

465 PRINT"3 FOR WARP.4 FOR PLANETARY APPROACH"; 

467 INPUTS 

470 IF S=4 THEN GOTO 500 

475 IF S=3 THEN GOTO 200 

480 GOTO 385 

500 PRINT: PRINT" "."PLANETARY APPROACH": PRINT 

502 LETT=T+1.3 

504 GOSUB 2100 

506 PRINT"TARGET-PLANET#" 

508 INPUTS 

510 IF S> P THEN GOTO 1370 

515 IF S<1 THEN GOTO 385 

520 LETW=(K/P)*S 

525 LET X=INT(RND(0)*100)+1 

527 LET Y=INT(RND(0)*4)+1 

530 IF Y> 2 THEN LET X=0-X 

535 LETW=W+X 

540 PRINT-DISTANCE TO PLANET #";S;"-";W 

542 IF W<100 THEN GOTO 650 

545 PRINT-APPROACH DRIVE POWER"; 

547 INPUT V 

550 LETT=T+V:LETG=G-V 

552 GOSUB 1500 

555 IF V> 12 THEN GOTO 1020 

557 IF V<2.2 THEN GOTO 385 

560 LET U=INT(RND(0)*13)+1 

562 LETV=V*U*3 

565 GOSUB 2100 
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567 LETW=W-V 

570 IF W<7 THEN GOTO 580 

575 GOTO 540 

580 IF W<-10 THEN GOTO 600 

582 IF W<-6 THEN GOTO 650 

585 PRINT'YOU COLLIDED WITH THE PLANET!" 

587 GOSUB2000 

590 PRINT' YOU CLUMSY CLOD!" 

592 GOSUB2000 

595 GOTO 1050 

600 PRINT'OVER-SHOOT!" 

602 GOSUB2000 

605 PRINT-EXCESS VELOCITY PROPELS YOU AWAY FROM 
TARGET" 

607 LETT=T+10 

610 LET K=K+INT(RND(0)*8000)+(2*V)-(W+INT(RND(0)*1000) 

615 PRINT'SOLAR DISTANCE IS ";K;" LIGHT YEARS" 

620 GOSUB2000 

625 GOTO 365 

635 PRINT-DISTANCE TOO GREAT FOR SCAN OR PLANETARY 
APPROACH" 

640 LETT=T+6.73 

645 GOTO 365 

650 PRINT'TARGET ACHIEVED!" 

655 GOSUB2000 

660 PRINT-CLOSE RANGE SCAN—"; 

662 GOSUB2000 

664 LETT=T-2.3 

666 LETF=S+600 

670 LETP=A(F) 

675 LET P=(P/4)*(INT(RND(0)*25)+2) 

680 IF P>100 THEN P=0 

685 PRINT"ATMOSPHERIC% OF BRETCHENKOEL-PLANET 

#";S 
690 GOSUB2000 
695 PRINT' "," ",?;"%": PRINT 
700 IF P=0 THEN GOTO 790 
705 IF P<25 THEN GOTO 780 
710 IF P>87 THEN GOTO 750 
712 PRINT'LOADING— " 
714 GOSUB2000 
716 GOSUB2000 
718 LET B=INT(RND(0)*17)+4 
720 LETP=P*B 
722 PRINT: PRINT 
724 PRINT P; "UNITS OF BRETCHENKOEL COLLECTED" 
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726 LETG=G+P-20 

728 LETJ=J+P 

730 GOSUB2000 

732 PRINT'TOTALBRETCHENKOEL NOW ON BOARD-"; 

734 GOSUB2000 

736 PRINT J:PRINT:PRINT 

738 LETT=T-4 

740 IF J<5020 THEN GOTO 365 

750 PRINT"MISSION ACCOMPLISHED!" 

752 GOSUB2000 

755 PRINT'GOOD WORK, ";A$ 

757 GOSUB2000 

760 PRINT'YOUR PEOPLE ARE SAVED!" 

765 END 

780 LETT=T+2 

782 PRINTTHATS SCARCELY WORTH BOTHERING WITH!" 

784 GOSUB2000 

786 GOSUB2100 

788 LETJ=J+P:GOTO730 

790 PRINTTHERE'S NO BRETCHENKOEL HERE, STUPID!" 

792 LETT=T+13 

794 GOSUB2100 

796 GOTO 365 

800 LET K=K-INT(RND(0)*K) 

802 LETT=T+1.5 

805 IF K<200 THEN GOTO 1600 

810 GOTO 320 

830 PRINT'THYLTHERNS ATTACK!!" 

832 LET Q=0:GOSUB 2000 

835 LET N=INT(RND(0)*10)+601 

837 FORL=lTOH 

840 LETU=A(N) 

842 PRINT U; "MEGABLORTS OF ENERGY FROM THYLTHERN 

#2":L 
845 LET N=N+1:LET Q=Q+U-INT(RND(0)*10) 
847 NEXTL:LETT=T+H 
850 GOSUB2100 
852 IF Q>400 THEN GOTO 1400 
855 PRINT'3 FOR WARP, 5 TO RETURN FIRE "; 
857 INPUTS 

860 IF S=3 THEN GOTO 200 
865 IF S=5 THEN GOTO 880 
870 PRINT"BAD INPUT' 
872 GOTO 830 
880 PRINT'MEGABLORTS"; 

INPUT M 
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884 LETT=T+M 

886 LET F=ENT(RND(0)*201)+1 

888 IF M> 1000 THEN GOTO 1040 

890 IF M<F THEN GOTO 910 

895 LET M=M-35-INT(RND(0)*100) 

897 LET H=H- 1:LET T=T+1.2 

900 PRINT'lTHYLTKERN DESTROYED!" 

902 IF H=0 THEN GOTO 930 

910 PRINT H;"THYLTHRENS LEFT' 

915 LETQ=0 

920 GOTO 835 

930 PRINT'GOT 'EM ALL!" 

932 GOSUB2000 

934 LET T=T+INT(RND(0)»10)+1 

936 GOSUB2100 

940 GOTO 365 

1000 FOR L=l TO 500:NEXT L 

1005 LET Y=INT(RND(0)*30)+1 

1010 FORM=lTOY 

1015 PRINT"*"; 

1020 NEXTM 

1025 PRINTOVER-DRIVE!!!" 

1030 FORM=lTOY 

1035 PRINT'*"; 

1040 NEXTM 

1045 PRINT:FOR L=l TO 470:NEXT L 

1050 PRINTYOU BLEW IT, ";A$ 

1055 GOSUB2000 

1060 PRINTYOU ARE DEAD "; 

1065 GOSUB2000 

1070 PRINT" AND SO ARE ALL THE PEOPLE BACK ON 

RAMSNEID!" 

1075 FORL=lTO908:NEXTL 

1080 GOTO 160 

1100 PRINT'IT'S TOO LATE!" 

1102 GOSUB2000 

1105 PRINT'EVERYONE BACK HOME IS DEAD!" 

1110 GOSUB2000 

1115 GOTO 160 

1130 IF C<80 THEN GOTO 1140 

1135 LETC=C/2 

1137 GOTO 1130 

1140 RETURN 

1150 PRINT' ","OOPS!" 

1152 GOSUB2000 
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1155 PRINT'YOU ARE OUT OF FUEL!" 

1160 GOSUB2000 

1165 PRINT'WHAT SHODDY PLANNING!" 

1170 GOTO 1055 

1200 LETZ=Z-X 

1205 IF Z<1 THEN GOTO 1220 

1210 GOTO 285 

1220 PRINT'YOU JUST WARPED 'EVENING STAR' RIGHT OUT" 

1222 PRINT'OF THE GALAXY!" 

1225 GOTO 1160 

1230 LETA(1)=6 

1232 LETA(101)=18 

1234 LET A(201)=972 

1235 GOTO 1270 

1240 IF K=l THEN PRINT" A"; 

1241 IFK=2THENPRINT"B"; 

1242 IFK=3THENPRINT"C"; 

1243 IF K=4 THEN PRINT'D"; 

1244 IF K=5 THEN PRINT'E"; 

1245 IF K=6 THEN PRINT'F"; 

1246 IF K=7 THEN PRINT'G"; 

1247 IF K=8 THEN PRINT"H"; 

1248 IF K=9 THEN PRINT'I"; 

1249 IF K=10 THEN PRINT'J"; 

1250 IF K=ll THEN PRINT'K"; 

1251 IF K=12 THEN PRINT'L"; 

1252 IF K=13 THEN PRINT'M"; 

1253 IF K=14 THEN PRINT'N"; 

1254 IF K=15 THEN PRINT'O"; 

1255 IF K=16 THEN PRINT'P"; 

1256 IF K=17 THEN PRINT'Q"; 

1257 IF K=18 THEN PRINT'R"; 

1258 IF K=19 THEN PRINT'S"; 

1259 IF K=20 THEN PRINT'T"; 

1260 IF K=21 THEN PRINT'U"; 

1261 IF K=22 THEN PRINT'V"; 

1262 IF K=23 THEN PRINT'W"; 

1263 IF K=24 THEN PRINT'X"; 

1264 IF K=25 THEN PRINT'Y"; 

1265 IF K=26 THEN PRINT'Z"; 
1267 RETURN 

1270 FOR X=401 TO 500 

1272 LET Y=INT(RND(0)*30)+1 

1275 IF Y> 13 THEN LET Y=0 

1277 LETA(X)=Y 

1280 NEXTX 

1285 FOR X=501 TO 600 
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1290 LET Y=INT(RND(0)*8010)+1 

1292 LET A(X)=Y: NEXT X 

1295 RETURN 

1300 PRINT'YOU CAME HOME WITHOUT ENOUGH 

BRETCHENKOEL?!?" 

1305 GOSUB2000 

1310 PRINT'YOU ARE PROMPTLY LYNCHED!" 

1315 GOTO 160 

1320 IF A(A)=18 THEN GOTO 1330 

1325 GOTO 340 

1330 IF A(B)-972 THEN GOTO 1340 

1335 GOTO 340 

1340 PRINT'HEY" 

1342 GOSUB2000 

1344 PRINT'YOU MUST'VE GONE THROUGH A BLACK HOLE OR" 

1346 PRINT" SOMETHING, BECAUSE SUDDENLY YOU'RE 

HOME!" 

1348 GOSUB2000 

1350 PRINT'AND WHAT A GREETING YOU RECEIVE!" 

1352 GOSUB2000 

1355 PRINTTHE PEOPLE ALL GATHER AROUND AND SAY-" 

1357 GOSUB2000 

1360 GOTO 1300 

1370 PRINT'NO SUCH PLANET" 

1372 PRINT: PRINT 

1375 LET F=INT(RND(0)*30)+1 

1377 LETT=T+F 

1380 IF F> 23 THEN GOTO 1390 

1385 GOTO 390 

1390 PRINT'YOU ARE HEREBY STRIPPED OF YOUR 

COMMAND!" 

1392 GOSUB2000 

1395 GOTO 160 

1400 PRINT-EVENING STAR IS DESTROYED!" 

1405 GOSUB2000 

1410 GOTO 1045 

1500 LET M=INT(RND(0)*101)+1 

1505 IF M>97 THEN GOTO 1520 

1510 RETURN 

1520 PRINT'METEOR STRIKE! ! ! ! " 

1522 LET M=INT(RND(0)*34)+1 

1525 LETT=T+M 

1530 IF T>100 THEN GOTO 1100 

1535 RETURN 

2000 LET Y=INT(RND(0)*1000)+100 

2005 FORX=lTOY 
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2010 NEXTX 

2015 RETURN 

2100 LETU=RND(0) 

2105 LETT=T+U 

2110 IF T>100 THEN GOTO 1100 

2115 RETURN 

1600 PRINT'YOU'VE DIVED INTO THE SUN!" 
1605 GOSUB2000 
1610 GOTO 1400 

TRS-80 BASIC 

10 CLS: P. ; P. " YOU ARE "; : A=RND(5) 

20 IF A=l A$="AKRANAID" 

25 IF A=2 A$="OLK" 

30 IF A=3 A$="ZOLAR ZINNK" 

35 IF A=4 A$="GUAMBNA" 

40 IF A=5 A$="JOHN DOE" 

45 P.A$;" - CAPTAIN OF THE SPACESHIP" 

50 P. '"EVENING STAR' FROM THE PLANET RAMSNEID" 

55 J=0:F.X=lTO200:Y=RND(26):A(X)=Y:N.X 

60 P. "RAMSNEID CIRCLES THE STAR KNOWN AS FR-972 AND" 

65 P. "IS IN DIRE NEED OF THE RARE SUBSTANCE, 

BRETCHENKOEL" 
70 P. "THERE IS NO BRETCHENKOEL LEFT IN YOUR SOLAR 

SYSTEM" 
72 P. "AND WITHOUT THIS SUBSTANCE TO FUEL THE 

PLANET'S" 
75 P. "POWER STATIONS, YOUR PEOPLE WILL DIE OUT." 
77 P. "THIS IS WHY THE RAMSNEIDIANS HAVE TAKEN UP 

SPACE" 
80 P. "TRAVEL, DESPITE ITS STRANGE & UNPREDICTABLE 

DANGERS" 
85 F.X=201TO300:Y=RND(999):A(X)=Y:N.X 
90 PRINT'YOUR MISSION, CAPTAIN"; A$;", IS TO SEARCH 

THE" 
95 PRINT'GALAXY FOR MORE BRETCHENKOEL. YOU WILL 

BE FLYING" 
100 PRINT'BY GUESS WORK MOST OF THE TIME" 
105 F.X=301TO400:Y=RND(17) 
110 IF Y=17 THEN Y=0 
112 IFY=1THENY=0 
115 A(X)=Y:N.X:GOS.1230 
117 PRINT"BUT WATCH OUT FOR METEORS, AND THE 

GREATLY FEARED," 
120 P. "WAR-LOVING THYLTHRENS!" 
125 F.X=401TO500:Y=RND(10):A(X)=Y:N.X:N=15 
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127 F.X=501TO600:Y=RND(1050):A(X)=Y:N.X 

130 IN. "ARE YOU PREPARED TO UNDERTAKE THIS 

MISSION":X 

135 IFX=YG.180 

140 IFX=NG.160 

145 P. "YOU MUST ANSWER YES OR NO,"; A$:G. 130 

160 P. "YOU ARE A GREAT SHAME TO YOUR RACE,";A$;"!" 

165 P.:GOS.2000:P." ","GOOD-BYE!" 

170 END 

180 P.:P.:Z=1:T=1 

185 G=30000:J=0 

200 IN. "WARP DRIVE";X:T=T+1 

205 IFX>50G.1000 

210 F=100:A=200:IN."FORE OR AFT";Y 

215 IFY=FG.240 

220 IFY=AG.240 

225 T=T+3:GOS.2100:G.200 

240 B=X*10:C=B/2:GOS.1130:GOS.2100 

245 F.L=1T0C:P."*";:F.M=1T0134:N.M:N.L 

250 G=G-B:IF G> G.1150 

260 IFY=AG.1200 

270 Z=Z+X 

280 IF Z> 100 G. 1220 

285 IFZ>1G.1220 

290 IFZ=1G.1300 

295 S=Z-l:P."YOU ARE"; S; "SECTORS FROM HOME" 

300 GOS. 1500:A=Z+100:B=Z+200:C=Z+300:D=Z+400:E+500 

305 P. "THE NEAREST STAR IS"::K=A(Z):GOS. 1240 

310 K=A(A):GOS. 1240:P."*";:K=A(B):P.K 

315 P. "DISTANCE IS "; 

320 K=A(E):P.K;" UGHT YEARS" 

325 IFA(Z)=6G.1320 

330 P=A(C):H=A(D):P. "THERE ARE ";P;" PLANETS" 

335 P. "THERE ARE ";H;" THYLTHRENS IN SOLAR SYSTEM" 

340 N=601:F.M=1TOP:A(N)=RND(40):N=N+1:N.M 

350 IFH>0G.830 

365 IN.'l FOR SCAN - 2 FOR SOLAR APPROACH- 3 FOR 

WARP";S 

370 IFS=3G.200 

375 IFS=2G.800 

380 IFS=1G.430 

385 P." BAD INPUT!!!":GOS.2000 

390 P. "COMPUTER JAMMED!":GOS.2000:P. 

395 S=ABS(S):T=T+S+1:GOS.2000:GOS.2100 

400 S=RND(5):IF S=4 G.365 

405 IF S=5 G.365 
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410 G.370 

430 IF K>5000 G.635 

435 P." "."SCANNING ":P:N=601 

440 F.Q=lTOP:O=A(N):GOS.2000:P."PLANET#";Q, 

445 GOS.2000:N=N+1:P.O:N.Q 

460 GOS.2000:T=T+.67:GOS.2100 

465 IN. "3 FOR WARP.4 FOR PLANETARY APPROACHES 

470 IFS=4G.500 

475 IFS=3G.20O 

480 G.385 

500 P.:P." "."PLANETARY APPROACH":P. 

502 T=T+1.3:GOS.2100 

505 IN.-TARGET— PLANET #";S 

510 IFS>PG.1370 

515 IF S<1 G.385 

520 W=(K/P)*S 

525 X=RND(100):Y=RND(4) 

530 IF Y> 2 THEN X=0-X 

535 W=W+X 

540 P. "DISTANCE TO PLANET #";S;~- ";W 

542 IF W<100 G.650 

545 IN."APPROACH DRIVE POWER ";V 

547 T=T+ V: G=G- V: GOS. 1500 

550 IFV>12G.1020 

555 IF V< 2.2 G.385 

560 U=RND(13):V=U*V*3:GOS.2100 

565 W=w-V 

570 IFW<7G.580 

575 G.540 

580 IFW<-10G.600 

582 IF W<-6 G.650 

585 P. "YOU COLLIDED WITH THE PLANET!":GOS.2000 

590 P." YOU CLUMSY CLOD!" 

595 GOS.2000:G.1050 

600 PRINT"OVER-SHOOT!":GOS.2000 

605 PRINT'EXCESS VELOCITY PROPELS YOU AWAY FROM 
TARGET" 

610 T=T+10:K=K+RND(8000)+2*V- (W+RND(1000) 

615 PRINT "SOLAR DISTANCE IS ";K;"LIGHT YEARS" 

620 GOS. 2000: G. 365 

635 PRINT'DISTANCE TOO GREAT FOR SCAN OR PLANETARY 

| APPROACH" 

! 640 T=T+6.73:G.365 

I 650 PRINT'TARGETACHIEVED!":GOS.2000 

i 660 PRINT'CLOSE RANGE SCAN — "; 

i 665 GOS.2000:T=T+2.3:F=S+600 

j 
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670 P=A(F) 

675 P=(P/4)*(RND(25)+2) 

680 IF P> 100 THEN P=0 

685 PRINT'ATMOSPHERIC% OF BRETCHENKOEL - PLANET 
#";S 

690 GOS.2000 

695 P." "," ",P;"<F':P. 

700 IFP=0G.790 

705 IFP<25G.780 

710 IFP>87G.750 

715 P.-LOADING ~":GOS.2000:GOS.2000 

720 B=RND(17)+3:P=P*B 

722 P.P;" UNITS OF BRETCHENKOEL COLLECTED" 

725 G=G+P-20:J=J+P 

730 GOS.2000: P. "TOTAL BRETCHENKOEL NOW ON BOARD -"; 

732 GOS.2000:P.J:P.:P.:T=T-4 

735 IFJ<5020G.365 

750 P. "MISSION ACCOMPLISHED!": GOS.2000 

755 P."GOOD WORK, ";A$: GOS.2000 

760 P. "YOUR PEOPLE ARE SAVED!" 

765 END 

780 T=T+2: P. "THAT'S SCARECELY WORTH BOTHERING 

WITH!" 

785 GOS.2000:GOS.2100:J=J+P:G.730 

790 P.'THERE'S NO BRETCHENKOEL HERE, STUPID!" 

792 T=T+13:GOS.2100 

795 G.365 

800 K=K-RND(K):T=T+1.5 

805 IFK<200G.1600 

810 G.315 

830 P.'THYLTHERNS ATTACK!!"Q=0:GOS.2000 

835 N=RND(10)+600:F.L=1TOH 

840 U=A(N) 

842 PRINTU;" MEGABLORTS OF ENERGY FROM THYLTHERN 

#"'L 

845 N=N+1:Q=Q+U-RND(10):N.L:T=T+H:GOS.2100 

850 IFQ>400G.1400 

855 IN. "3 FOR WARP, 5 TO RETURN TO FIRE";S 

860 IFS=3G.200 

865 IFS=5G.880 

870 P." BAD INPUT!":G.830 

880 IN."MEGABLORTS";M:T=T+M:F=RND(201) 

885 IF M>1000G. 1040 

890 IFM<FG.910 

895 M=M-35-RND(100):H=H-:T=T+1.2 

900 P."l THYLTHERN DESTROYED!" 
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902 IFH=0G.930 

910 P.H;" THYLTHRENS LEFT :Q=0 

915 G.835 

930 P. "GOT 'EM ALL!":GOS.2000 

935 T=T+RND(10):GOS. 2100 

940 G.365 

1000 F.L=lTO500:N.L:Y=RND(30) 

1005 F.M=1T0Y:P." * ";:N.M 

1010 P."OVER-DRIVE!!!" 

1015 F.M=1T0Y:P."*";:N.M 

1045 P.:F.L=1T0470:N.L 

1050 P. "YOU BLEW IT, ";A$:GOS.2000 

1060 P. "YOU ARE DEAD ";:GOS.2000 

1070 P. "AND SO ARE ALL THE PEOPLE BACK ON REMSNEID!" 

1080 F.L=lTO908:N.L:G.160 

1100 P."IT'STOOLATE!":GOS.2000 

1105 P. "EVERYONE BACK HOME IS DEAD!":GOS.2000 

1110 G.160 

1130 IF C<20 THEN G. 1140 

1135 C=C/2:G.1130 

1140 RET. 

1150 P." ","OOPS!":GOS.2000 

1160 P. "YOU ARE OUT OF FUEL!":GOS.2000 

1165 P. "WHAT SHODDY PLANNING!":G. 1060 

1200 Z=Z-X:IFZ<1G1220 

1210 G.285 

1220 P. "YOU JUST WARPED 'EVENING STAR' RIGHT OUT OF 

1225 P.'THE GALAXY!":G.1165 

1230 A(1)=6:A(101)=18:A(201)=972 

1235 G.1270 

1240 IFK=1P."A"; 

1241 IFK=2P."B"; 

1242 IFK=3P."C"; 

1243 IFK=4P."D"; 

1244 IFK=5P."E"; 

1245 IFK=6P."F"; 

1246 IFK=7P."G"; 

1247 IFK=8P."H"; 

1248 IFK=9P.T'; 

1249 IFK=10P."J"; 

1250 IFK=11P."K"; 

1251 IFK=12P."L"; 

1252 IFK=13P."M"; 

1253 IFK=14P."N"; 

1254 IFK=15P."0"; 

1255 IFK=16P."F'; 
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1256 IF K=17P."Q"; 

1257 IF K=18P."R"; 

1258 IF K=19P."S"; 

1259 IFK=20P."T"; 

1260 IFK=21P."U"; 

1261 IFK=22P."V"; 

1262 IF K=23P."W"; 

1263 IFK=24P."X"; 

1264 IFK=25P."Y"; 

1265 IFK=26P."Z"; 
1268 RET. 

1270 F.X=40lTO500:Y=RND(30) 

1275 IFY>13THENY=0 

1280 A(X)=Y:N.X 

1285 F.X=501TO600:Y=RND(8010) 

1290 A(X)=Y:N.X:RET. 

1300 P. "YOU CAME HOME WITHOUT ENOUGH 

BRETCHENKOEL?!?" 

1305 GOS.2000 

1310 P. "YOU ARE PROMPTLY LYNCHED! ":G. 160 

1320 IFA(A)=18G.1330 

1325 G.340 

1330 IFA(B)=972G.1340 

1335 G.340 

1340 P."HEY! "1:GOS.2000 

1345 P. "YOU MUST'VE GONE THROUGH A BLACK HOLE OR" 

1347 P. "SOMETHING, BECAUSE SUDDENLY YOU'RE HOME!" 

1350 GOS.2000: P. "AND WHAT A GREETING YOU RECEIVE!" 

1352 GOS.2000 

1355 P. "THE PEOPLE ALL GATHER AROUND AND SAY - " 

1360 GOS. 2000: G. 1300 

1370 P."NO SUCH PLANET!":P.:P.:F=RND(30):T=T+F 

1375 IF F>23 THEN G. 1390 

1380 G.390 

1390 P."YOU ARE HEREBY STRIPPED OF YOUR COMMAND!" 

1395 GOS. 2000: G. 160 

1400 P." 'EVENING STAR' IS DESTROYED!": GOS.2000 

1410 G.1050 

1500 M=RND(101) 

1505 IF M>97 THEN G. 1520 

1510 RET 

1520 P. "METEOR STRIKE! !!":M=RND(34):T=T+M 

1525 IF T> 100 G. 1100 

1530 RET. 

1600 P. "YOU'VE DIVED INTO THE SUN!": GOS.2000 

1610 G.1400 
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2000 Y=RND(1000)+100 

2005 F.X=1T0Y:N.X 

2010 RET. 

2100 U=RND(0):T=T+U 

2110 IFT>100G.1100 

2120 RET. 

Summary of Variables Used 

A Name selection/AFT/various 

B various 

C various 

D various 

E various 

F FORE/various 

G various 

H # of Thytherns 

I Not used 

J Bretchenkoel on board 

K Star name/distance 

L Timing 

M Timing 

N various 

Planetary scan 

P # of planets/% of Bretchenkoel 

Q Planet # 

R Not used 

S various 

T energy used 

U various 

V Approach drive power 
W Planetary approach 

X Timing/various 

Y various 

Z Location/various 

Sample Run (excerpt) 

WARP DRIVE? 10 
FORE OR AFT? FORE 

YOU ARE 18 SECTORS FROM HOME 

THE NEAREST STAR IS QB*19 

DISTANCE IS 170 LIGHT YEARS 

THERE ARE 5 PLANETS 

THERE ARE 3 THYLTHERNS IN SOLAR SYSTEM 

1 FOR SCAN - 2 FOR SOLAR APPROACH - 3 FOR WARP ? 1 

SCANNING 

PLANET #1 21 
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PLANET #2 13 

PLANET #3 37 

PLANET #4 8 

PLANET #5 25 

3 FOR WARP, 4 FOR PLANETARY APPROACH? 3 

PLANETARY APPROACH 
TARGET PLANET #? 3 
DISTANCE TO PLANET #3-64 
APPROACH DRIVE POWER? 2 
DISTANCE TO PLANET #3-34 
APPROACH DRIVE POWER? 2 
TARGET ACHIEVED 
CLOSE RANGE SCAN 
ATMOSPHERE % OF BRETCHENKOEL - PLANET #3 

85% 
LOADING— 

1275 UNITS OF BRETCHENKOEL COLLECTED 
TOTAL BRETENKOEL COLLECTED - 2010 
WARP DRIVE? 8 
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High Bid 



This is a simple game. The instructions are included in the 
program and are self-explanatory. 

At first glance it would seem that whoever went first would 
inevitably lose that round, but as you get in some practice you will 
learn how to use strategy to break up the tie games. 

The sample run included is an early game without too much 
strategy being used. See Fig. 1-8 for the flowchart. 

Standard BASIC 

5 PRINT " ", "HIGH BID":PRINT 

10 PRINT'WE EACH GET THE NUMBERS FROM 1 TO 10." 

15 PRINT'EACH # MAY BE PLAYED ONLY ONCE. ON EACH" 

20 PRINT'ROUND WE BOTH BID A # AND THE HIGH BID" 

25 PRINT'WINS THE ROUND. WHOEVER WON THE LAST" 

30 PRINT'ROUND GOES FIRST. THE FIRST ROUND WILL" 

32 PRINT'BE SELECTED RANDOMLY." 

35 REM* SET CHOICE ARRAYS & SCORE 

37 FORX=1T0 20 

40 LETA(X)=1 

42 NEXTX 

44 LET A=0:LET B=0 

46 REM* PLAYER SELECT 

48 FORX=1TO470 

50 LET P=INT(RND(0)*2)+1 

52 NEXTX 

54 REM* SET COUNTER 

56 FORT=lTO10 

58 IF P=l THEN GOTO 180 

60 PRINT'I GO FIRST" 

62 GOSUB 120 

64 GOSUB 150 

66 GOSUB 170 

70 LETA(X)=0 

72 LET A(Y+10)=0 

75 IF X=Y THEN GOTO 205 

80 IF X>Y THEN GOTO 220 

85 PRINT'I WIN THIS ROUND" 

90 LETB=B+1 

92 LETP=2 

95 NEXTT 

100 PRINT:PRINT"THE GAME IS OVER - FINAL SCORE" 

105 PRINT:PRINT"YOU","ME" 

90 



•c 

as 

€ 

I 

T3 
CD 
sz 

X 
oo 



LL 
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110 PRINT A,B 

115 END 

120 PRINT "I PLAY — "; 

125 LET Y=INT(RND(0)*10)+1 

130 IF A(Y+10)=0 THEN GOTO 125 

135 FOR Z=l TO 333: NEXT Z 

137 PRINT Y 

140 RETURN 

150 PRINT'YOUR PLAY"; 

155 INPUT X 

160 IF A(X)=0 THEN GOTO 155 

165 RETURN 

170 FOR Z=l TO 400:NEXT Z 

175 RETURN 

180 PRINT'YOU GO FIRST" 

185 GOSUB 150 

190 GOSUB 120 

195 GOSUB 170 

200 GOTO 70 

205 PRINT'TIE" 

210 LET P=INT(RND(0)*2)+1 

215 GOTO 95 

220 PRINT'YOU WIN THIS ROUND" 

225 LETA=A+1 

230 LETP=1 

235 GOTO 95 



TRS-80 BASIC 

5 CLS:P." "."HIGH BID":P. 

10 P."WE EACH GET THE NUMBERS FROM 1 TO 10. EACH" 

15 P."# MAY BE PLAYED ONLY ONCE. ON EACH ROUND" 

20 P. "WE BOTH BID A # AND THE HIGH BID WINS THE" 

25 P. "ROUND. WHOEVER WON THE LAST ROUND GOES" 

30 P. "FIRST. THE FIRST ROUND WILL BE SELECTED" 

32 P. "RANDOMLY" 

35 F.X= lTO20:A(X)=l:N.X:A=0:B=0 

40 F.X=lTO470:P=RND(2):N.X 

45 F.T=lTOl0 

50 IFP=1G.180 

55 P."IGOFIRSr':GOS.120 

60 GOS.150 

65 GOS.170 

70 A(X)=0:A(Y+10)=0 

75 IFX=YG.205 

80 IFX>YG.220 
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85 


P."I WIN THIS ROUND" 


90 


B=B+1:P=2 


95 


N.T 


100 


P.:P."GAME IS OVER — FINAL SCORE":P. 


105 


P/'YOU'V'ME" 


110 


P.A,B 


115 


END 


120 


P. "I PLAY--"; 


125 


Y=RND(10) 


130 


IFA(Y+10)=0G.125 


135 


F.Z=1T0333:N.Z 


140 


P.Y:RET. 


150 


IN."YOURPLAY";X 


155 


IFA(X)=0G.150 


160 


RET. 


170 


F.Z=lTO400:N.Z:RET. 


180 


P. "YOU GO FIRST" 


185 


GOS.150 


190 


GOS.120 


195 


GOS.170 


200 


G.70 


205 


P."TIE":P=RND(2) 


210 


G.95 


220 


P. "YOU WIN THIS ROUND" 


225 


A=A+1:P=1 


230 


G.95 


Sample Run 




HIGH BID 



WE EACH GET THE NUMBERS FROM 1 TO 10. 

EACH # MAY BE PLAYED ONLY ONCE. ON EACH 

ROUND WE BOTH BID A # AND THE HIGH BID 

WINS THE ROUND. WHOEVER WON THE LAST 

ROUND GOES FIRST. THE FIRST ROUND WILL 

BE SELECTED RANDOMLY 

I GO FIRST 

I PLAY — 7 

YOUR PLAYP9 

YOU WIN THIS ROUND 

YOU GO FIRST 

YOUR PLAYP3 

I PLAY — 4 

I WIN THIS ROUND 

I GO FIRST 

I PLAY — 2 
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YOUR PLAY?3 

YOUR PLAYP2 

TIE 

I GO FIRST 

I PLAY — 5 

YOUR PLAYP6 

YOU WIN THIS ROUND 

YOU GO FIRST 

YOUR PLAYP1 

I PLAY 3 

I WIN TfflS ROUND 
I GO FIRST 
I PLAY — 10 
YOUR PLAY?2 
YOUR PLAYP4 
I WIN TfflS ROUND 
I GO FIRST 

I PLAY - 8 

YOUR PLAY? 10 

YOU WIN TfflS ROUND 

YOU GO FIRST 

YOUR PLAYP8 

I PLAY 9 

I WIN THIS ROUND 

I GO FIRST 

I PLAY - 6 

YOUR PLAYP7 

YOU WIN THIS ROUND 

YOU GO FIRST 

YOUR PLAYP5 

I PLAY — 1 

YOU WIN THIS ROUND 

GAME IS OVER - FINAL SCORE 

YOU ME 
5 4 

Summary of Variables Used 

A PLAYER'S SCORE 

B COMPUTER'S SCORE 

P PLAYER SELECT 

T TURN COUNTER 

X TIMING/PLAYER'S BID 

Y COMPUTER'S BID 
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High Bid II 



This game is essentially similar totheoriginaltfigfc Bid game, 
but there is a greater element of chance to sustain continued 
interest. 

Both the player and the computer still get ten numbers to play, 
but instead of a fixed 1 to 10, each of the numbers is selected 
randomly. Each number may be played only once each time it 
appears in your hand To make things a little trickier, you are not 
told what numbers the computer is holding (it only looks at your 
hand when making a validity check, so the game is fair). 

Since this game is played the same way as the other version, 
no sample run is included 

Standard BASIC 

5 PRINT:PRINT:PRINT 

10 PRINT" "."HIGH BID H" 

12 PRINT 

14 FORX=lTO20 

16 LETA(X)=INT(RND(0)*10)+1 

18 NEXTX 

20 LET A=0:LET B=0:LET G=l 

22 LETP=INT(RND(0)*2)+1 

25 IFO10THEN GOTO 130 

30 PRINTYOUR HAND — "; 

32 FORX=1TO10 

34 LETY=A(X) 

36 IF Y=0 THEN GOTO 40 

38 PRINT Y;""; 

40 NEXTX: PRINT 

45 IF P=l THEN GOTO 200 

50 PRINT'I GO FIRST" 

55 LETX=11 

60 IF A(X)>0 THEN GOTO 70 

62 LETX=X+1 

65 GOTO 60 

70 LETY=A(X) 

75 LETA(X)=0 

80 PRINT TLL PLAY-"; 

85 GOSUB330 

90 PRINT Y 

95 GOSUB275 

100 IF X=Y THEN GOTO 150 

105 IF X>Y THEN GOTO 170 
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110 


PRINT "I WIN THIS ROUND" 


112 


LET B=B+1 


114 


LET P=2 


116 


LET G=G+1 


118 


GOSUB 330 


120 


GOTO 25 


130 


PRINT:PRINT"GAME IS OVER - FINAL SCORE' 


135 


PRINT'YOU'V'ME" 


140 


PRINT A,B 


145 


END 


150 


PRINTTIE" 


155 


LET P=INT(RND(0)*2)+1 


160 


GOTO 116 


170 


PRINT'YOU WIN THIS ROUND" 


175 


LET A=A+1 


180 


LET P=l 


185 


GOTO 116 


200 


PRINT'YOU GO FIRST" 


202 


GOSUB 275 


204 


LET Y=X+1 


206 


LET C=0 


208 


PRINTTLL PLAY — "; 


210 


IF Y=ll THEN Y=l 


215 


FORZ=llTO20 


220 


IF A(Z)=YTHENC=Z 


225 


NEXT Z 


230 


IF C>0 THEN GOTO 250 


235 


LET Y^Y+1 


240 


GOTO 210 


250 


LET A(C)=0 


255 


PRINT Y 


260 


GOSUB 330 


265 


GOTO 100 


275 


PRINT'YOUR PLAY"; 


280 


INPUT X 


285 


LET C=0 


290 


FOR Z=lTO10 


295 


IF A(Z)=X THEN LET C=Z 


300 


NEXTZ 


305 


IF C>0 THEN GOTO 320 


310 


PRINT-INVALID PLAY" 


315 


GOTO 275 


320 


LET A(C)=0 


330 


FOR Z=l TO 333 


335 


NEXT Z 


340 


RETURN 



96 



TRS-80 BASIC 

5 CLS:P. " ". "fflGH BID IT": P. 

10 F.X=lTO20:A(X)=RND(10):N.X. 

15 P=RND(2):A=0:B=0:G=1 

20 IF G<10 G. 130 

25 ."YOUR HAND - "; 

30 F.X=1T0 10:Y=A(X):IF Y=0 G. 40 

35 P.Y;""; 

40 N.X.:P. 

50 IF P=l G. 200 

55 P." I GO FIRST":X=11 

60 IFA(X)>0G. 70 

65 X=X+1:G60 

70 Y=A(X):A(X)=0 

75 P.TLLPLAY-"; 

80 GOS. 320 

85 P.Y 

90 GOS. 275 

100 IF X=Y G. 150 

105 IF X>Y G. 170 

110 P. "I WIN THIS ROUND" 

115 B=B+1:P=2 

120 G=G+1:GOS.320 

125 G.20 

130 P. : P. "GAME IS OVER - FINAL SCORE" 

135 P. "YOU", "ME" 

140 P.A.B 

145 END 

150 P. "TIE" 

155 P=RND(2) 

160 G.120 

170 P. "YOU WIN THIS ROUND" 

175 A=A+1:P=1:G.120 

200 P. "YOU GO FIRST" 

205 GOSUB275 

210 Y=X+1:C=0:P.TLL PLAY - "; 

215 IF Y=ll THEN Y=l 

220 F.Z=11 TO 20 

225 IF A(Z)=Y THEN C=Z 

230 N.Z 

235 IF C>0 G. 250 

240 Y=Y+1:G. 215 

250 A(C)=0 

255 P.Y 

260 GOS. 320 

265 G. 100 
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275 


IN."YOUR PLAY";X 


280 


C=0:F.Z=1TO 10 


285 


IF A(Z)=X THEN C=Z 


290 


N.Z 


295 


IF 00 G. 310 


300 


P. "INVALID PLAY" 


305 


G.275 


310 


A(C)=0 


320 


F.Z=1T0333:N.Z 


325 


RET. 
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Balancing The Scales 

This game is simple in concept, but playing it can be quite 
tricky. The computer gives you 25 weights of up to 10 grams each, 
and you have to place them all on a four-way scale arranged like 
this: 

A 

C D 

B 

If two opposite plates (A and B or C and B) have more than a 5 
gram difference, the scale assembly will topple over. Also, if the 
two crossbeams (A+B and C+D) have more than a 7.5 gram 
difference, the scale will topple. 

K you manage to get all 25 weights on the scale without 
toppling it, you win. If the scale topples, you lose. 

An additional note: once a weight has been placed on the scale, 
it can't be moved. See Fig. 1-9 for the flowchart. 

Standard BASIC 

5 PRINT:PRINT 

7 PRINr*","BALANCINGTHESCALES":PRINT 

10 REM* SET WEIGHTS & CLEAR SCALE * 

12 F0RX=1T025 

15 LETY=INT(RND(0)*100)+1 

17 LETY=Y/10:LETA(X)=Y 

20 NEXTX 

22 LETA=50:LETB=60 

25 LETC=70:LETD=80 

30 LETE=0:LETF=0 

32 LETG=0:LETH=0 

35 REM* THE PLAY* 

37 FORX=lTO470:PRINT:NEXTX 

40 PRINT "THE AVAILABLE WEIGHTS ARE", 

42 F0RX=1T025 

45 PPJNTX;"*";A(X);""; 

47 NEXTX 

50 PPJNT:PRINT:PRINr 'SCALE RANKING" 

55 LETX=10 

60 IFE=XTHENPRINT"A— ";X, 

65 IFF=XTHENPRINr'B~";X, 

70 IFG=XTHENPRINT"C-";X, 

75 IFH=XTHENPPJNT'D-";X, 

80 IFX=0THENGOTO90 

82 LETX=X-.l 
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85 GOTO 60 

90 PRINT'WHICH WEIGHT?" 

92 INPUT W 

95 IF W>25 THEN GOTO 135 

100 IF A(W)=0 THEN GOTO 135 

105 PRINT'WHICH SCALE?" 

107 INPUTS 

110 FORX=lTO390:NEXTX 

115 IF S=A THEN GOTO 140 

120 IF S=B THEN GOTO 145 

125 IF S=C THEN GOTO 150 

130 IF S=D THEN GOTO 155 

135 REM* INVALID ENTRY* 

137 PRINT'DON'T GET CUTE, PAL! " 

138 GOTO 90 

140 LETE=E+A(W) 

142 GOTO 160 

145 LETF=F+A(W) 

147 GOTO 160 

150 LETG=G+A(W) 

152 GOTO 160 

155 LETH=H+A(W) 

160 LETA(W)=0 

162 REM* TOPPLE CHECK* 

165 IF EXF+5) THEN GOTO 250 

170 IF FXE+5) THEN GOTO 250 

175 IFG>(H+5)THENGOTO250 

180 IF H>(G+5) THEN GOTO 250 

185 LETI=E+F:LETJ=G+H 

190 IFI>0+7.5)THENGOTO250 

195 IFJ>(I+7.5)THENGOTO250 

200 REM* REMAINING WEIGHT CHECK* 

202 LETY=0 

205 F0RX=1T025 

207 LETY=Y+A(X) 

210 NEXTX 

212 IF Y=0 THEN GOTO 225 

215 GOTO 35 

225 PRINT"THATWASTHELASTWEIGHT":PRINT 

230 F0RX=1T0333:NEXTX 

235 PRINT'YOUWIN!" 

240 END 

250 PRINT'SCALE STRUCTURE TOPPLES!":PRINT 

255 F0RX=1T0333:NEXTX 

260 PRINT'YOULOSE!" 

265 END 

100 



c 



RUN 



SET WEIGHTS & 
CLEAR BALANCE 



] ratescaIJs 




LOSE 



WIN 



c 



END 



J 



Fig. 1-9. Flowchart for Balancing the Scales. 

TRS-80 BASIC 

10 CLS: P. P: . P" ", BALANCING THE SCALES": P. 

15 F.X=1T025 

20 Y=RND(100)/10:A(X)=Y 

25 N.X:A=50:B=60:C=70 

30 D=80:E=0:F=0:G=0:H=0 

35 F.X=lTO470:N.X 

40 CLS:P."THEAVAILABLEWEIGHTSARE", 

45 F.X=1T025:P.X;"*"; A(X);" "; 

50 N.X:P.:P.:P."SCALERANKING 

55 X=10 
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60 IFE=XP."A_";X, 
65 IFF=XP."B_";X, 
70 IFG=XP."C_";X, 
75 IFH=XP."D_";X, 
80 IFX=0G.90 
85 X=X-.1:G.60 
90 IN. "WHICH WEIGHT'; W 
95 IFW>25G.135 
100 IFA(W)=0G.135 
105 IN."WHICHSCALE";S 
110 F.X=lTO390:N.X 
115 IFS=AG.140 
120 IFS=BG.145 
125 IFS=CG.150 
130 IFS=DG.155 

135 P."DON'TGETCUTE,PAL!":G.90 
140 E=E+A(W)::G.160 
145 F=F+A(W):G.160 
150 G=G+A(W):G.160 
155 H=H+A(W) 
160 A(W)=0 
165 IFE>(F+5)G.250 
170 IFF>(E+5)G.250 
175 IFG>(H+5)G.250 
180 IFH>(G+5)G.250 
185 I=E+F:J=G+H 
190 IFI>0+7.5)G.250 
195 IFJ>(I+7.5)G.250 
200 Y=0:F.X=1T025 
205 Y=Y+A(X):N.X 
210 IFY=0G.225 
215 G.35 

225 P."THATWASTHELASTWEIGHT:P. 
230 F.X=1T0333:N.X 
235 P."YOUWIN!" 
240 END 

250 PRINT"SCALE STRUCTURE TOPPLES!" 
255 F.X=1T0333:N.X 
260 P. "YOU LOSE!" 
265 END 

Summary Of Variables Used 

A,B,C,D Scale positions 

E Weight of scale A 

F Weight of scale B 

G Weightof scale C 
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H 
I 

J 

S 


Weight of scale D 
Weight of crossbar AB 
Weight of crossbar CD 
Scale choice 


W 
X 
Y 


Weight choice 

Timing 

Various 



Sample Run 

BALANCING THE SCALES 

THE AVAILABLE WEIGHTS ARE 1*3.32*7 3*2.9 

4*5.55*86*7.1 7*7.78*9.69*6.2 10*1.7 

11*8. 1 12*1.913*4 14*3.8 15*6.5 16*8.8 

17*9.4 18*2.6 19*720*4.221*7.922*5.3 

23*124*0.725*6.2 

SCALE RANKING 

A-0 B-0 C-0 D-0 

WHICH WEIGHT? L- 

WfflCHSCALEPA— 

THE AVAILABLE WEIGHTS ARE 1*0*7.3*2.9 

4*5.55*86*7.17*7.78*9.69*6.210*1.7 

11*8. 1 12*1.9 13*4 14*3.8 15*6.5 16*8.8 

17*9.4 18*2.6 19*720*4.221*7.922*5.3 

23*124*0.725*6.2 

SCALE RANKING 

A-3.3 B-0 C-0 D-0 

WHICH WEIGHT?_L 
DON'T GET CUTE, PAL! 
WHICH WEIGHTPJ. 
WHICH SCALE? C— 

THE AVAILABLE WEIGHTS ARE .. . 

(from here on I won't bother repeating the 
weights. Whenaweightisuseditbecomes 
0.) 

SCALE RANKING 

A-3.3 C-2.9 B-0 D-0 

WHICH WEIGHT?_4_ 

WHICHSCALEPB— 

THEAVAILABLEWEIGHTSARE 
SCALE RANKING 
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B--5.5 A--3.3 C--2.9 D-0 

WHICH WEIGHT?^ 
WHICH SCALE? D_ 

THE AVAILABLE WEIGHTS ARE 

SCALE RANKING 

D-7 B-5.5 A--3.3 C--2.9 

WHICH WEIGHT?^. 

WHICH SCALE? A— 

SCALE STRUCUTRE TOPPLES! 

YOU LOSE! 



104 



Memory Test 



You have to keep alert to win this two-player game. There are 
10 rounds. On each round three numbers are separately flashed on 
the screen for a brief period of time (which gets progressively 
shorter on each round). If you want to alter the flash time, change 
the value of C in line 35. 

After displaying the three numbers, the computer asks one of 
the players (randomly selected) to repeat one of the numbers. Then 
the other player is asked for one of the remaining numbers. A 
correct entry by either player scores a point for that player. 

After 10 rounds the total score for both players is displayed 
and the game ends. 

In the easy level the numbers can be up to three digits. The 
medium level numbers go up to four digits, and the hard numbers 
have up to five digits. 

Since this is a memory game, there would be no point in 
including a sample run. See Fig. 1-10 for the flowchart. 

Standard BASIC 

5 PRINT:PRINT:PRINT 

10 PRINT" ","MEMORYTEST":PRINT 

12 PRINT'PLAYER #1"; 

15 INPUT A$ 

17 PRINT'PLAYER #2"; 

20 INPUT B$ 

25 LETA=0:LETB=0 

30 LETE=10:LETM=100:LETH=1000 

35 LETC=150 

40 PRINT'EASY, MEDIUM OR HARD GAME "; 

45 INPUT G 

50 REM* BEGIN THE PLAY* 

55 FORK=1T010 

57 LET X=INT(RND(0)*100)*INT(RND(0)*G) 

60 LET Y=INT(RND(0)*100)*INT(RND(0)*G) 

62 LET Z=INT(RND(0)*100)*INT(RND(0)*G) 

65 PRINT'ENTER 1 WHEN READY " 

70 INPUTJ 

72 REM* FLASH NUMBERS* 

75 LETM=INT(RND(0)*888)-I-1 

77 FORN=lTOM:NEXTN 

80 FORN=lTO50:PRINT:NEXTN 
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82 PRINT X 

85 F0RD=1T0C:NEXTD 
87 FORN=lTO50:PRINT:NEXTN 
90 PRINT Y 

92 F0RD=1T0C:NEXTD 
95 FOR N=l TO 50: PRINT: NEXT N 
97 PRINT Z:M=M+ 100 
100 FOR D=1T0C: NEXT D 
105 FOR N=l TOM: PRINT: NEXT N 
110 LETT=INT(RND(0)*2) 
115 IFT=1 THEN GOTO 155 
120 PRINT A$;" WHAT WAS THE "; 
122 LETF=0 

125 LETH=INT(RND(0)*3)+1 
130 IFH=1THENGOSUB200 
135 IFH=2THENGOSUB220 
140 IFH=3THENGOSUB240 
145 LETA=A+F 
150 IF T=l THEN GOTO 195 
155 PRINT B$;" WHAT WAS THE "; 
157 LETF=0 

160 LET I=INT(RND(0)*3)+ 1 
165 IF I=H THEN GOTO 160 
170 IFI=1THENGOSUB200 
175 IFI=2THENGOSUB220 
180 IFI=3THENGOSUB240 
185 LETB=B+F 
190 IFT=1THEN GOTO 120 
195 NEXTK 
197 GOTO 275 

200 PRINT'FIRST NUMBER"; 
202 INPUT W 

205 IF W=X THEN GOTO 260 
210 PRINT'NO, IT WAS ";X 
215 RETURN 

220 PRINT-SECOND NUMBER"; 
222 INPUT W 

225 IF W=Y THEN GOTO 260 
230 PRINT'NO, IT WAS ";Y 
235 RETURN 

240 PRINT-THIRD NUMBER"; 
242 INPUT W 

245 IF W=Z THEN GOTO 260 
250 PRINT'NO, IT WAS ";Z 
255 RETURN 
260 PRINT-CORRECT" 

106 



265 


LETF=1 


270 


RETURN 


275 


PRINT'GAME IS OVER" 


280 


PRINT A$;" GOT";A;"RIGHT" 


285 


PRINT'AND ";B$;" GOT";B 


290 


END 


TRS-80 BASIC 


10 


CLS:P.:P."","MEMORYTEST":P. 


15 


IN. "PLAYER #1";A$ 


20 


IN. "PLAYER #2";B$ 


25 


E=10:M=100:H=1000 


30 


IN."EASY, MEDIUM ORHARDGAME";G 


35 


A=0:B=0:C=150 


50 


F.K=lTO10 


55 


X=RND(100)*RND(G) 


60 


Y=RND(100)*RND(G) 


65 


Z=RND(100)*RND(G) 


70 


IN. "ENTER 1WHENREADY";J 


75 


M=RND(888):F.N=1T0M:N.N 


80 


CLS.-P.X 


85 


F.D=1T0C:N.D 


90 


CLS:P.Y 


95 


F.D=1T0 C:N.D 


100 


CLS:P.Z 


105 


F.D=1T0 C:N.D:C=C-10 


110 


CLS:T=RND(2):F.N=1T0M:N.N 


115 


IFT=1G.155 


120 


P.A$;"WHATWASTHE"; 


125 


H=RND(3):F=0 


130 


IFH=1GOS.200 


135 


IFH=2GOS.220 


140 


IFH=3GOS.240 


145 


A=A+F 


150 


IFT=1G.195 


155 


P.B$;"WHATWASTHE"; 


160 


I=RND(3):F=0 


165 


IFI=HG.160 


170 


IFI=1GOS.200 


175 


IFI=2GOS.220 


180 


IFI=3GOS.240 


185 


B=B+F 


190 


IFT=1G.120 


195 


N.K:G.275 


200 


IN. "FIRST NUMBER";W 


205 


IFW=XG.260 



107 



210 


P. "NO, IT WAS ";X 


215 


RET. 


220 


IN."SECOND NUMBER"; W 


225 


IFW=YG.260 


230 


P. "NO, IT WAS ";Y 


235 


RET. 


240 


IN."THIRDNUMBER";W 


245 


IFW=ZG.260 


250 


P. "NO, IT WAS ";Z 


255 


RET. 


260 


P. "CORRECT": F=l 


265 


RET. 


275 


P."GAMEISOVER" 


280 


P.A$;" GOT";A;" RIGHT AND ";B$;" GOT";B 


285 


END 



Summary of Variables Used 

A$ Player #1 

B$ Player #2 

A A$ score 

B B$ score 

C Flash timing 

D Flash timing 

E Easy game 

F Correct guess? 

G Game level 

H Hard game/A$ number selection 

I B$ number selection 

J Round start 

K Round counter 

M Medium game/Timing 

N Timing 

T Player select 

W Guess 

X First number 

Y Second number 

Z Third number 
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What Comes Next 

If you enjoy solving mathematical puzzles, this game is for 
you. The computer generates a sequence of numbers in the pattern 
of A= ((A+B)*C)-D. It gives you the first three numbers in the 
sequence and you have to figure out what the next number will be. 
If you guess wrong the computer will give you the correct number, 
and you must determine the next step in the sequence. Once you 
correctly identify a number, the game moves on to the next 
sequence. If you have no idea what the next number might be you 
can enter "E" to pass. An E counts as a half try. 

The computer keeps track of how many tries it takes you to get 
through ten sequences. Obviously, the lower your score, the 
better. See Fig. 1-11 for the flowchart. 

Standard BASIC 

5 LETS=0 

10 FORX=ltol0 

12 LETT=1 

14 LETA=INT(RND(0)*10)+1 

16 LETB=INT(RND(0)*100)+1 

18 LETZ=INT(RND(0)*10)+1 

20 IFZ>6THENLETB=0 

22 LETC=INT(RND(0)*50)+1 

24 LETZ=INT(RND(0)*10)+1 

26 IFZ>4THENLETC=1 

28 LETD=INT(RND(0)*25)+1 

30 LETZ=INT(RND(0)*10)+1 

35 IFZ>3 THEN LET D=l 

40 REM* DISPLAY INITIAL SERIES* 

45 F0RY=1T03 

50 PRINT A, 

55 LETA=((A+B)*C)-D 

60 NEXTY 

65 PRINT 

70 REM* PLAYER'S GUESS* 

72 LETE=0.5 

75 PRINT" WHAT COMES NEXT? (ENTER E TO PASS)"; 

77 INPUT F 

80 IF F=E THEN GOTO 95 

85 IFF=ATHENGOTOH0 

90 PRINT "INCORRECT", 

92 LETT=T+0.5 
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95 LETT=T+0.5 

97 LETA=((A+B)*C)-D 

100 PRINT A 

105 GOTO 70 

110 PRINT"CORRECT!",T;"TRIES" 

115 LETS=S+T 

120 PRINT"YOURSCORESOFARIS";S 

125 NEXTX 

130 PRINT'GAMEOVER" 

135 IF S< 13 THEN GOTO 160 

140 IF S<20 THEN GOTO 170 

145 IF S>30 THEN GOTO 180 

150 END 

160 PRINT'FANTASTIC!" 

165 END 

170 PRINT'VERYGOOD" 

175 END 

180 PRINT-FRANKLY, YOU DID LOUSY" 

185 END 

TRS-80 BASIC 

10 S=0 

15 F.X=lTOl0:T=l 

20 A=RND(10):B=RND(100):Z=RND(10) 

25 IFZ>6THENB=0 

30 C=RND(50):Z=RND(10) 

35 IFZ>4THENC=1 

40 D=RND(25):Z=RND(10) 

45 IFZ>3THEND=1 

50 F.Y=1T03 

55 P. A 

60 A=('(A+B)*C)-D 

65 N.Y 

70 P.:E=0.5 

75 IN. "WHAT COMES NEXT? (ENTER E TO PASS)";F 

80 IFF=EG.95 

85 IFF=AG.110 

90 P. "INCORRECT", :T=T+0. 5 

95 T=T+0.5:A=((A+B)*C)-D 

100 P.A:G.70 

110 P."CORRECT",T;"TRIES" 

115 S=S+T:P."YOURSCORESOFARIS";S 

120 N.X 

125 IFS<13G.150 

130 IFS<20G.160 

135 IFS>30G.170 
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145 END 

150 P.'TANTASTIC!" 

155 END 

160 P. "VERY GOOD" 

165 END 

170 P. "FRANKLY, YOUDID LOUSY.' 

175 END 



C 



RUN 



J 



SET SCORE 
TO ZERO 



FORX=1T010 



SELECTSEQUENCE 
NUMBERS 




YES 



COUNT y 2 TRY 



YES 



COUNT 1 TRY 



DISPLAY NEXT 
NUMBER 



Fig. 1-11. Flowchart for What Comes Next. 
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Sample Run (excerpt) 

7 99 111 

WHAT COMES NEXT? (ENTER E TO PASS)? 222222 

INCORRECT 11143 

WHAT COMES NEXT? (ENTER E TO PASS)? 111595 

CORRECT! 2 TRIES 

YOUR SCORE SO FAR IS 2 

3 2 1 

WHAT COMES NEXT? (ENTER E TO PASS)? 

CORRECT! 1 TRIES 

YOUR SCORE SO FAR IS 3 

9 17 33 

WHAT COMES NEXT? (ENTER E TO PASS)? 66 

INCORRECT 65 

WHAT COMES NEXT? (ENTER E TO PASS)? E 

129 

WHAT COMES NEXT? (ENTER E TO PASS) ?357 

CORRECT! 2. 5 TRIES 

YOUR SCORE SO FAR IS 5. 5 

10 968 10538 

WHAT COMES NEXT? (ENTER E TO PASS)? 11428 

INCORRECT 106238 

WHAT COMES NEXT? (ENTER E TO PASS)? E 

1063238 

WHAT COMES NEXT? (ENTER E TO PASS)? 1063328 

CORRECT! 2. 5 TRIES 

YOUR SCORE SO FAR IS 8 



Summary of Variables Used 


A-D 


SEQUENCE VARIABLES 


E 


PASS 


F 


PLAYER'S GUESS 


S 


TOTAL SCORE 


T 


ROUND SCORE 


X 


ROUND COUNT 


Y 


TIMING 


Z 


VARIOUS 
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Go Fish 

Here's a computerized version of a popular card game. The 
"deck" consists of up to four each of 16 different card types, 
identified by the letters A through P. The object is to make as many 
matches as possible. 

On each play you are shown the cards in your hand and the 
number of cards in the computer's hand. You first make any 
matches you can (and the computer does likewise); then you 
request a card. If the computer has it, the card is exchanged. If not, 
you take the top card from the main deck. Then the computer takes 
a similar turn (it does not examine your hand until after it has made 
its request, so it doesn't cheat). 

The game is over when either of the players has no cards in 
hand, or when the main deck runs out of cards. The winner is the 
player with the highest number of matches. All card values count 
the same. See Fig. 1-12 for the flowchart. 
Standard BASIC 



3 


FORX=lTO302 


5 


PRINT 


7 


LETA(X)=0 


10 


NEXTX 


12 


PRINT"", "GO FISH": PRINT 


15 


F0RX=1T04 


17 


F0RY=1T016 


20 


LETZ=INT(RND(0)*100)+201 


22 


IF A(Z)>0 THEN GOTO 20 


25 


LETA(Z)=Y 


27 


NEXTY 


30 


NEXTX 


31 


LETQ=200 


32 


LETA=1:LETB=2 


33 


LETC=3:LETD=4 


34 


LETE=5:LETF=6 


35 


LETG=7:LETH=8 


36 


LETI=9:LETJ=10 


37 


LETK=11:LETL=12 


38 


LETM=13:LETN=14 


39 


LETO=15:LETP=16 


40 


REM*OPENINGDEAL* 


42 


FORX=lT07 


45 


LETQ=Q+1 


46 


IFA(Q)=0THENGOTO45 


47 


LET A(X)=A(Q): LET A(Q)=0 
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48 NEXTX 

50 FORX=10lTO107 

51 LETQ=Q+1 

52 IFA(Q)=0THENGOTO51 

53 LETA(X)=A(Q):LETA(Q)=0 

54 NEXTX 

55 REMTHEPLAY* 

57 PRINT: PRINT'YOUR HAND--"; 
60 FOR X= 1 TO 100: LET Y=A(X) 
62 IFY>0THENGOSUB240 

64 NEXTX 

66 PRINT: PRINT: PRINT'MY HAND—"; 
68 FORX=10lTO200 
70 LETY=A(X) 
72 IF Y=0 THEN GOTO 80 
74 LETZ=X-100 
76 PRINT Z;".)X"; 
78 NEXTX 
80 PRINT: PRINT 
82 GOTO 335 

85 PRINT'WHATDOYOUNEED"; 
87 INPUTS 
90 FORX=101TO200 
92 LETY=A(X) 
94 IFY=STHENLETT=X 
96 NEXTX 

98 IF T>0 THEN GOTO 470 
100 PRINT'GO FISH!" 
102 FOR Z=lTO 470: NEXT Z 
104 PRINT: PRINT 
106 LETY=A(Q) 
108 IFY=0THENGOSUB530 
110 LETA(Q)=0:LETX=1:LETQ=Q+1 
112 IFA(X)=0THENGOTO120 
115 LETX=X+1 
117 GOTO 112 
120 LETA(X)=Y 
122 PRINT" YOU DREW A"; 
124 GOSUB245 
126 PRINT: PRINT 
128 GOSUB330 
130 PRINT'INEEDA"; 
132 LETX=200 
135 IF A(X)>0 THEN GOTO 145 
140 LETX=X-1 
142 GOTO 135 
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Q RUN ) 



SHUFFLE DECK 



gHEE 



(CAN PLAYER MAKE 
J I I ANY PAIRS'? 



YES T" 



4 VALIDATE MATCH 



WHATOOES - 
CQMP NEED? 



VALIDATE 
MATCH 




EXCHANGE CARD 



/gotopointN 



Fig. 1-12.FlowchartforGoFish. 
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145 LETY=A(X) 

146 GOSUB245 
148 PRINT 
150 LETT=0 

152 FORX=1T0100 

154 LETS=A(X) 

156 IFS=YTHENLETT=X 

158 NEXTX 

160 GOSUB330 

165 IF T>0 THEN GOTO 490 

167 PRINT'I MUST GO FISH" 

170 LETY=A(Q):LETX=101 

172 IFY=0THENGOSUB530 

174 LETA(Q)=0:LETQ=Q+1 

176 IF A(X)=0 THEN GOTO 185 

178 LETX=X+1 

180 GOTO 176 

185 LETA(X)=Y 

190 GOSUB330 

195 GOSUB330 

200 GOTO 55 

240 PRINT X;".)"; 

245 IF Y=l THEN PRINT "A"; 

250 IFY=2THENPRINT'B"; 

255 IFY=3THENPRINT'C"; 

260 IFY=4THENPRINT'D"; 

265 IF Y=5 THEN PRINT'E "; 

270 IFY=6THENPRINT'F"; 

275 IF Y=7 THEN PRINT "G"; 

280 IFY=8THENPRINT"H"; 

285 IF Y=9 THEN PRINT "I"; 

290 IF Y=10 THEN PRINT "J"; 

295 IFY=11 THEN PRINT "K"; 

300 IF Y=12 THEN PRINT "L"; 

305 IF Y=13 THEN PRINT "M"; 

310 IFY=14 THEN PRINT "N"; 

315 IF Y=15 THEN PRINT "O"; 

320 IF Y=16 THEN PRINT "P"; 

325 RETURN 

330 FORZ=lT0555:NEXTZ 

333 RETURN 

335 LETY=50:LETN=14 

337 PRINT'CANYOUMATCHANYPAIRS"; 

340 INPUT U 

342 IF U=N THEN GOTO 380 

344 PRINT "CARD#"; 

116 



346 INPUTS 

348 PRINT"ANDCARD#"; 

350 INPUT T 

352 IF A(S)= THEN GOTO 360 

354 IF S=T THEN GOTO 360 

356 IF A(S)=A(T) THEN GOTO 365 

360 PRINT'INVALID MATCH" 

362 GOTO 335 

365 LETY=A(S):LETA(S)=0 

367 LETA(T)=0:LETT=A(301) 

370 LETT=T+1:LETA(301)=T 

372 PRINT" YOU'VE MATCHED A PAIR OF"; 

374 GOSUB245 

376 GOTO 335 

380 FOR X=101 TO 200: LET R=A(X) 

382 IF R=0 THEN GOTO 400 

385 FORZ=101TO200 

387 IF Z=X THEN GOTO 395 

390 LETS=A(Z) 

392 IFR=STHENGOSUB430 

395 NEXTZ 

400 NEXTX 

402 IF Q>275 THEN GOTO 465 

405 LETW=0 

407 FORX=lTO100:LETW=W+AQ0 

410 NEXTX 

412 IF W=0 THEN GOTO 440 

415 LETW=0 

417 FORX=101TO200:LETW=W+A(X) 

420 NEXTX 

422 IFW=0THENGOTO460 

425 LETT=0 

427 GOTO 85 

430 LETY=R 

432 PRINT'TVE MATCHED A PAIR OF"; 

434 GOSUB245 

436 LETR=-5:LETAQO=0:LETA(Z)=0 

438 LET T=A(302): LET T=T+1: LET A(302)=T 

439 RETURN 

440 PRINT'YOU ARE OUT OF CARDS" 
442 LETX=A(301):LETY=A(302) 

444 PRINT"YOUMATCHED";X;"PAIRS" 

446 PRINT'AND I MATCHED"; Y;"PAIRS" 

450 END 

460 PRINT! AM OUT OF CARDS" 

462 GOTO 442 
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465 


PRINT'THE DECK IS OUT OF CARDS" 


467 


GOTO 442 


470 


LETA(T)=0 


472 


FORX=lTO100 


475 


IF A(X)=0 THEN GOTO 485 


480 


NEXT X:PRINT: PRINT 


482 


GOSUB330 


484 


GOTO 130 


485 


LETA(X)=S:LETS=0 


487 


GOTO 480 


490 


LETA(T)=0 


495 


FORX=lTO100 


500 


IF A(X)=0THEN GOTO 515 


505 


NEXTX 


507 


GOSUB330 


510 


GOTO 70 


515 


LETA(X)=S 


520 


LETS=0 


525 


GOTO 505 


530 


LETQ=Q+1 


535 


LETY=A(Q) 


540 


IF Y=0 THEN GOTO 530 


545 


RETURN 


TRS-80 BASIC 


10 


CLS:P.:P." ","GOFISH":F.X=lTO302 


15 


A(X)=0:N.X 


20 


F.X=1T04:F.Y=1T016 


25 


Z=RND(100)+200 


30 


IFA(Z)>0G.25 


35 


A(Z)=Y:N.Y:N.X:Q=200 


40 


F.X=1T07 


42 


Q=Q+1 


44 


IFA(Q)=0G.42 


46 


A(X)=A(Q):A(Q)=0:N.X 


48 


F.X=101TO107 


50 


Q=Q+1 


52 


IFA(Q)=0G.50 


54 


A(X)=A(Q):A(Q)=0:N.X 


55 


CLS:P. "YOUR HAND— ";:F.X=1 TO 100:Y=, 


60 


IFY>0GOS.240 


65 


N.X:P.:P.:P."MYHAND— "; 


67 


F.X=101TO200:Y=A(X) 


70 


IFY=0G.80 


75 


Z=X-100:P.Z;".)X"; 


80 


N.X:P.:P.:G.335 
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85 


IN. "WHAT DO YOU NEED"; S 


90 


F.X=101TO200:Y=A(X) 


92 


IFY=STHENT=X 


95 


N.X:IFT>0G.470 


100 


P."GOFISH!":F.Z=lTO470:N.Z:P.:P. 


102 


Y=A(Q) 


105 


IFY=0GOS.530 


107 


A(Q)=0:X=1:Q=Q+1 


110 


IFA(X)=0G.120 


115 


X=X+1:G.110 


120 


A(X)=Y:P."YOUDREWA";:GOS.245 


125 


P.:P.:GOS.330 


130 


P."INEEDA";:X=200 


135 


IFA(X)>0G.145 


140 


X=X-1:G.135 


145 


Y=A(X):GOS.245:P.:P. 


150 


T=0:F.X=lTOl00:S=A(X) 


155 


IFS=YTHENT=X 


160 


N.X:GOS.330 


165 


IFT>0G.490 


170 


P. "I MUST GO FISH": Y=A(Q) 


172 


IFY=0GOS.530 


176 


A(Q)=0:X=101:Q=Q+1 


178 


IFA(X)=0G.185 


180 


X=X+1:G.178 


185 


A(X)=Y:GOS.330 


190 


G.55 


240 


P.X;".)"; 


245 


IFY=1P."A"; 


250 


IFY=2P."B"; 


255 


IFY=3P."C"; 


260 


IFY=4P."D"; 


265 


IFY=5P."E"; 


270 


IFY=6P."F"; 


275 


IFY=7P."G"; 


280 


IFY=8P."H"; 


285 


IFY=9P."I"; 


290 


IFY=10P."J"; 


295 


IFY=11P."K"; 


300 


IFY=12P."L"; 


305 


IFY=13P."M"; 


310 


IFY=14P."N"; 


315 


IFY=15P."0"; 


320 


IFY=16P."P"; 


325 


RET. 


330 


F.Z=1T0555:N.Z:RET. 
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335 Y=50:N=14:IN."CAN YOU MAKE ANY PAIRS";U 

340 IFU=NG.380 

345 IN."CARD#";S:IN."ANDCARD#";T 

350 IFA(S)=0G.360 

352 IFS=TG.360 

355 IFA(S)=A(T)G.365 

360 P."INVALIDMATCH":G.335 

365 Y=A(S):A(S)=0:A(T)=0:T=A(301):T+1:A(301)=T 

370 P.'TOU'VE MATCHED A PAIR OF "; : GOS.245: G.335 

380 F.X=101TO200:R=A(X):IFR=0 G.400 

385 F.Z=101TO200:IFX=ZG.395 

390 S=A(Z):IFR=SGOS.430 

395 N.Z 

400 N.X:IFQ>275G.465 

405 W=0:F.X=a01TO200:W=W+A(X):N.X:T=0 

410 IFW=0G.460 

415 W=0:F.X=lTO100:W=W+A(X):N.X 

420 IFW=0G.440 

425 G.85 

430 Y=R:P. "I'VE MATCHED A PAIR OF "; : GOS. 245 

435 R=-5:A(X)=0:A(Z)=0:T=A(302):T=T+1 

437 A(302)=T:P.:RET. 

440 P. "YOU ARE OUT OF CARDS" 

445 X=A(301):Y=A(302):P;"YOUMATCHED";X;"PAIRS" 

450 P. "AND I MATCHED ";Y;" PAIRS" 

455 END 

460 P. "I AM OUT OF CARDS": G.445 

465 P. "THE DECK IS OUT OF CARDS": G.445 

470 A(T)=0:F.X=1TO 100:IF A(X)=0 G. 485 

480 N.X:P.:P.:GOS.330:G.165 

485 A(X)=S:S=0:G.480 

490 A(T)=0:F.X=lTOl00:IFA(X)=0G.510 

500 N.X:GOS.330:G.55 

510 A(X)=S:S=0:G.500 

530 Q=Q+1:Y=A(Q) 

535 IFY=0G.530 

540 RET. 

Sample Run 

GO FISH 
YOUR HAND — 1.)0 2.)M 3.)J 4.)C 5.)K 
6.)G 7.)A 

MYHAND— l.)X 2.)X 3.)X 4.)X 5.)X 
6.)X 7.)X 

CAN YOU MAKE ANY PAIRS? NO 
I'VE MATCHED A PAIR OF C 
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I'VE MATCHED APAIROFH 
WHAT DO YOU NEED? 
GO FISH! 

YOUJUSTDREWAD 
INEEDAK 

YOUR HAND -l.)0 2.)M 3.)J 4.)C 6.)G 7.)A 8.)D 

MYHAND-DX 2.)X 3.)X 4.)X 6.)X 

CAN YOU MAKE ANY PAIRS? NO 

I'VE MATCHED A PAIR OF K 

WHAT DO YOU NEED? M 

I NEED A B 

I MUST GO FISH 

YOUR HAND - 1.)0 2.)M 3.)J 4.)C 5.)M 

6.)G7.)A8.)D 

MYHAND-1.)X4.)X 

CAN YOU MAKE ANY PAIRS? YES 

CARD#?2 

ANY CARD #? 5 

YOU'VE MATCHED A PAIR OF M 

WHATDOYOUNEED?J 

I NEED A B 

I MUST GO FISH 

YOUR HAND -l.)0 2.)J 3.)J 4.)C 6.)G 
7.)A 8.)D 

MYHAND-1.)X4.)X 

Summary of Variables Used 

A-P CARD VALUES 

Q LOCATION IN DECK 

R PAIR MATCHING 

S PLAYER'S REQUEST/PAIR MATCHING 

T OPPONENT'S HAND SEARCH/PAIR MATCHING 

U MATCH ANY PAIRS? 

V NOT USED 

W CARD COUNT 

X-Z VARIOUS 
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Quiz Whiz 



Quiz Whiz is a simple game in concept. The computer gives 
you a number (X) and four larger numbers. You have to determine 
which one is the square of X (X times X). There are ten rounds to a 
game. 

hi the easy game X can be any whole number from 1 to 50. The 
medium game allows half numbers (such as 37. 5), and the hard 
game allows any digit behind the decimal point (39.7, 42.3, 16.8, 
etc. . .). Of course you can change the over-all complexity of the 
game by altering the value of X in line 30. As written X = 50 times 
L. K you substituted "X=40*L", the maximum number is 40 (the L 
factor is divided back out in a later step; it is used to provide the 
fractional quantities in the medium and hard games. In the easy 
game, L = l). 

If you can get a score of 10 without using a calculator or slide 
rule, you're really a whiz kid. See Fig. 1-13 for the flowchart. 

Standard BASIC 

10 PRINT" "/'WHIZ QUIZ" 

12 PRINT 

14 LETE=1 

16 LETM=2 

18 LETH=10 

20 LETS=0 

22 PRINT'EASY, MEDIUM, OR HARD GAME"; 

24 INPUT L 

26 REM* THE GAME* 

28 FORT=lTOl0 

30 LETX=50*L 

32 LETY=INT(RND(0)*X)+1 

34 LETX=Y/L 

36 LETY=X*X 

38 REM* X IS THE RO OT AND Y IS THE CORRECT ANSWER* 

40 F0RM=1T0333 

42 NEXTM 

44 PRINT"WHATIS";X;"SQUARED?" 

46 LETA=0 

48 LETB=0 

50 LETC=0 

52 LETD=0 

54 REM*PLANT CORRECT ANSWER * 

57 LETE=INT(RND(0)*4)+1 

60 IFE=1THENLETA=Y 
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Q RUN J 




s=o 



RESETTURN 
COUNTER 



SELECT 
ROOT 



PLACE CORRECT 
ANSWER 




ADVANCE 
SCORE 



Fig. 1-13. Flowchart for Whiz Quiz. 



123 



65 IFE=2THENLETB=Y 

70 IFE=3THENLETC=Y 

75 IFE=4THENLETD=Y 

80 REM* WRONG ANSWERS* 

82 IF A>0 THEN GOTO 95 

85 GOSUB220 

90 LETA^H 

95 IFB>0THEN GOTO 110 
100 GOSUB220 
105 LETB=H 
110 IF C>0 THEN GOTO 125 
115 GOSUB220 
120 LETC=H 
125 IF D>0 THEN GOTO 140 
130 GOSUB220 
135 LETD=H 

137 REM*PLAYER'S CHOICE* 
140 PRINT 4 A — "; A 
145 PRINT" B — ";B 
150 PRINT" C — ";C 
155 PRINT" D-";D 
160 INPUT K 
162 F0RM=1T0333 
165 NEXTM 

170 IF K=Y THEN GOTO 200 

175 PRINT" WRONG. THE CORRECT ANSWER IS ";Y 
180 NEXTT 

185 PRINT'THE WHIZ QUIZ IS OVER" 
190 PRINT"YOUGOT";S;"RIGHT" 
195 END 

200 REM* CORRECT ANSWER* 
205 PRINT"RIGHT! M 
210 LETS=S+1 
215 GOTO 180 

220 REM* WRONG ANSWER SELECTION * 
225 LETF=INT(RND(0)*0.4*X)+1 
230 LETG=INT(RND(0)*F)+l+X + (F/2) 
235 IF G=X THEN GOTO 230 
240 LETH=G*G 
245 IF L=l THEN GOTO 260 
250 LETG=INT(RND(0)*10)+1 
255 LETH=H+(G/L) 
260 RETURN 
TRS-80 BASIC 
10 P." " f " WHIZ QUIZ": P. 
15 E=1:M=2:H=10:S=0 
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20 


IN. 4t EASY, MEDIUM, OR HARD GAME"; L 


25 


F.T=lTO10 


30 


X=50*L:Y=RND(X) 


35 


X=Y/L:Y=X*X 


40 


F.M=1T0333:N.M 


45 


P. "WHAT IS ";X;" SQUARED?" 


50 


A=0:B^0:C=0:D=0 


55 


E=RND(4) 


60 


IFE=1THENA=Y 


65 


IFE=2THENB=Y 


70 


IFE=3THENC=Y 


75 


IFE=4THEND=Y 


80 


IFA>0G.95 


85 


GOS.220 


90 


A=H 


95 


IFB>0G.110 


100 


GOS.220 


105 


B=H 


110 


IFO0G.125 


115 


GOS.220 


120 


C=H 


125 


IFD>0G.140 


130 


GOS.220 


135 


D=H 


140 


P." A---"; A 


145 


P."B~";B 


150 


P."C--";C 


155 


P."D-~";D 


160 


IN.K 


165 


F.M=1T033:N.M 


170 


IFK=YG.2O0 


175 


P. "WRONG. THE CORRECT ANSWER IS "; 


180 


N.T 


185 


PL'THE WHIZ QUIZ IS OVER." 


190 


P."YOUGOT";S;"RIGHT" 


195 


END 


200 


P."RIGHT!" 


205 


S=S+1 


210 


G.180 


220 


F=INT(.4*X) 


225 


G=RND(F)+(X-F/2) 


230 


IFG=XG.225 


235 


H=G*G 


240 


IFL=1G.250 


245 


H=H+(RND(10)/L) 


250 


RET. 
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Variables Used 

A POSSIBLE ANSWER 

B POSSIBLE ANSWER 

C POSSIBLE ANSWER 

D POSSIBLE ANSWER 

E EASY GAME/CORRECT ANSWER SELECTION 

F FALSE ANSWER CALCULATIONS 

G FALSE ANSWER CALCULATIONS 

H FALSE ANSWER CALCULATIONS/HARD GAME 

K PLAYER'SANSWER 

L GAME LEVEL 

M MEDIUM GAME/TIMING 

S SCORE 

T TURN COUNTER 

X ROOT SELECTION 

Y CORRECT ANSWER 

Sample Run (Excerpt) 

QUIZ WHIZ 
WHATIS17SQUARED? 

A— 256 

B—289 

C-324 

D-196 
?A 

WRONG. THE CORRECT ANSWER IS 289 
WHATIS32 SQUARED? 

A—941 

B--900 

C—1225 

D— 1024 
?D 

RIGHT! 
WHATIS50 SQUARED? 

A— 3249 

B-2304 

C—2500 

D— 2025 
?C 
RIGHTI 
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TicTacToe 

Here is a computerized version of that old favorite. The 
object, of course, is to get three in a row: across, down or diagon- 
ally. 

It's not easy to beat the computer, but anything's possible. See 
Fig. 1-14 for the flowchart. 



Standard BASIC 


10 


PRINT" LET'S PLAY TIC-TAC-TOE" 


12 


FOR X=l TO 9 


14 


LET A(X)=0 


16 


NEXTX 


18 


REM ** THE BOARD IS NOW CLEARED ** 


20 


GOSUB 280 


25 


PRINT'YOU TAKE THE 'O' AND I'LLTAKE THE X" 


27 


PRINTrPRINT 


30 


LET N=INT (RND(0)*2)+1 


32 


LET M=3 


35 


GOTO 300 


40 


IF N=2 THEN GOTO 290 


45 


PRINTTLL GO FIRST THIS TIME" 


50 


GOSUB 280 


55 


PRINTTLL TAKE SPACE # "; 


60 


GOSUB 280 


65 


LET S=INT (RND(0)*9)+1 


67 


LETA(S)=-1:LETM=1 


70 


PRINTS 


75 


GOSUB 280 


80 


GOTO 300 


85 


PRINT "WHICH SPACE WILL YOU PLAY"; 


87 


INPUTS 


90 


LET S=INT(S) 


92 


LET S=ABS(S): LET M=2 


95 


IF S>9 THEN GOTO 85 


100 


100 IF S<1 THEN GOTO 85 


105 


IF A(S)<0 THEN GOTO 85 


110 


LET A(S)=-2 


115 


GOTO 300 


120 


PRINT "I'LL PAY SPACE # "; 


125 


LET S=0 : LET M=l 


127 


REM ** BOARD CHECK FOR COMPUTER'S PLAY ** 


130 


IF A(1)=0 THEN GOTO 147 


132 


IF A(1)=A(2) THEN LET S=3 
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135 IF A(1)=A(3) THEN LET S=2 

137 IF A(1)=A(5) THEN LET S=9 

140 IF A(1)=A(9) THEN LET S=5 

142 IF (1)=A(4) THEN LET S=7 

145 IF A(1)=A(7) THEN LET S=4 

147 IF A(2)=0 THEN GOTO 157 

150 IF A(2)=A(3) THEN LET S=l 

152 IF A(2)=A(5) THEN LET S=8 

155 IF A(2)=A(8) THEN LET S=5 

157 IF A(3)=0 THEN GOTO 170 

160 IF A(3)=A(5) THEN LET S=7 

162 IF A(3)=A(7) THEN LET S=5 

165 IF A(3)=A(6) THEN LET S=9 

167 IF A(3)=A(9) THEN LET S=6 

170 IF A(4)=0 THEN GOTO 180 

172 IF A(4)=A(7) THEN LET S=l 

175 IF A(4)=A(5) THEN LET S=6 

177 IF A(4)=A(6) THEN LET S=5 

180 IF A(5)=0 THEN GOTO 192 

182 IF A(5)=A(6) THEN LET S=4 

185 LET A(5)=A(9) THEN LET S=l 

187 IF A(5)=A(8) THEN LET S=2 

190 IF A(5)=A(7) THEN LET S=3 

192 IF A(6)=0 THEN GOTO 197 

195 IF A(6)=A(9) THEN LET S=3 

197 IF A(7)=0 THEN GOTO 210 

200 IF A(7)=A(8) THEN LET S=9 

205 IF A(7)=A(9) THEN LET S=8 

210 IF A(8)=0 THEN GOTO 220 

215 IF A(8)=A(9) THEN LET S=7 

220 IF S>0 THEN GOTO 230 

225 LET S=INT (RND(0)*9)+1 

230 IF A(S)<0 THEN GOTO 225 

235 GOSUB280 

240 PRINTS 

245 LETA(S)=-1 

250 GOTO 75 

280 REM** PAUSE** 

282 F0RX=1T0 333 

285 NEXTX 

287 RETURN 

290 PRINT "YOU GO FIRST" 

295 GOTO 85 

300 REM ** DRAW GRID ** 

302 PRINT: PRINT: PRINT 

305 LETZ=1 
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307 F0XX=1T0 3 

310 PRINT"", 

312 FOR Y = 1 TO 3 

315 LETV=A(Z) 

320 IF V<0 THEN GOTO 475 

325 PRINT Z;""; 

330 LETZ=Z+1 



C 



RUN 



I 



D 



(clear board 



TURN SELECT 



DRAW BOARD 



TIE? 



YES 



WIN? 



YES 



c 



END 



j 



NO 



' COMP'S \ NO_ 
, TURN? 



YES > 



PLAYER'S TURN 



SELECT SPACE 



«g ■ J 



PLAYER'S 
SPACE 




Fig. 1-14. Flowchart for TicTac Toe. 
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332 NEXTY 

335 PRINT 

337 NEXTX 

340 PRINT:PRINT 

345 REM* WIN CHECK ** 

347 LETY=0 

350 FOR Z=l TO 9 

355 LETX=Z 

360 IF A(X)<0 THEN X=0 

365 LETY=Y+X 

370 NEXTZ 

375 IF Y=0 THEN GOTO 490 

380 IF A(1)=0 THEN GOTO 405 

385 LETX=A(1) 

390 IF X=A(2) THEN GOSUB 500 

395 IF X=A(4) THEN GOSUB 510 

400 IF X=A(5) THEN GOSUB 520 

405 IF A(2)=0 THEN GOTO 420 

410 LETX=A(2) 

415 IF X=A(5) THEN GOSUB 530 

420 IF A(3)=0 THEN GOTO 440 

425 LETX=A(3) 

430 IF X=A(6) THEN GOSUB 520 

435 IF X=A(5) THEN GOSUB 510 

440 IF A(4)=0 THEN GOTO 455 

445 LETX=A(4) 

450 IF X=A (5) THEN GOSUB 540 

455 IF A(7)=0 THEN GOTO 470 

460 LETX=A(7) 

465 IF X=A(8) THEN GOSUB 520 

470 IF M=l THEN GOTO 85 

471 IF M=2 THEN GOTO 120 

472 IF M=3 THEN GOTO 40 
475 IF V=-l THEN PRINT "X"; 
480 IF V=-2 THEN PRINT'O "; 
485 GOTO 330 

490 PRINT'TIE GAME - LETS TRY AGAIN" 

495 GOTO 12 

500 IF X=A(3) THEN GOTO 550 

505 RETURN 

510 IF X=A(7) THEN GOTO 550 

515 RETURN 

520 IF X=A(9) THEN GOTO 550 

525 RETURN 

530 IF X=A(8) THEN GOTO 550 

535 RETURN 
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540 


IF X=A(6) THEN GOTO 550 


545 


RETURN 


550 


IF X=-l THEN PRINT "I"; 


555 


IF X=-2 THEN PRINT "YOU"; 


560 


PRINT "WIN!" 


565 


END 


TRS-80 BASIC 


10 


P. "LET'S PLAY TIC-TAC-TOE" 


15 


F.X=1 TO 9:A(X)=0:N.X. 


20 


GOS.280 


25 


P. "YOU TAKE THE '0' AND I'LL TAKE THE 'X' ":P. 


30 


N=RND(2):M=3 


35 


G.300 


40 


IF N=2 G. 290 


45 


P. "I'LL GO FIRST THIS TIME" 


50 


GOS.280 


55 


P. "I'LL TAKE SPACE #"; 


60 


GOS.280 


65 


S=RND(9):A(S)=-1 


70 


P.S.:M=1 


75 


GOS. 280 


80 


G.300 


85 


IN. "WHICH SPACE WILL YOU PLAY";S 


90 


S=INT(S):S=ABS(S):M=2 


95 


IF S>9 G.85 


100 


IF S<1 G. 85 


105 


IF A(S)<0 G.85 


110 


A(S)=-2 


115 


G.300 


120 


P. "I'LL PLAY SPACE #"; 


125 


S=0:M=1 


130 


IF A(1)=0 G. 147 


132 


IF A(1)=A(2) THEN S=3 


135 


IF A(1)=A(3) THEN S=2 


137 


IF A(1)=A(5) THEN S=9 


140 


IF A(1)=A(9) THEN S=5 


142 


IF A(1)=A(4) THEN S=7 


145 


IF A(1)=A(7) THEN S=4 


147 


IF A(2)=0 G. 157 


150 


IF A(2)=A(3) THEN S=l 


152 


IF A(2)=A(5) THEN S=8 


155 


IF A(2)=A(8) THEN S=5 


157 


IF A(3)=0 G. 170 


160 


IF A(3)=A(5) THEN S=7 
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162 


IF A(3)=A(7) THEN S= 


=5 


165 


IF A(3)=A(6) THEN S= 


=9 


167 


IF A(3)=A(9) THEN S= 


=6 


170 


IF A(4)=0 G. 180 




172 


IF A(4)=A(7) THEN S= 


=1 


175 


IF A(4)=A(5) THEN S= 


=6 


177 


IF A(4)=A(6) THEN S= 


=5 


180 


IF A(5)=0 G. 192 




182 


IF A(5)=A(6) THEN S= 


=4 


185 


IF A(5)=A(9) THEN S= 


=1 


187 


IF A(5)=A(8) THEN S= 


=2 


190 


IF A(5)=A(7) THEN S= 


=3 


192 


IF A(6)=0 G. 197 




195 


IF A(6)=A(9) THEN S= 


=3 


197 


IF A(7)=0 G. 210 




200 


IF A(7)=A(8) THEN S= 


=9 


205 


IF A(7)=A(9) THEN S= 


=8 


210 


IF A(8)=0 G. 220 




215 


IF A(8)=A(9) THEN S= 


=7 


220 


IFS>0G.230 




225 


S=RND (9) 




230 


IF A(S)<0 G.225 




235 


GOS. 280 




240 


P.S. 




245 


A(S)=-1 




250 


G.75 




280 


F.X.=1T0333:N.X. 




285 


RET. 




290 


P. "YOU GO FIRST" 




295 


G. 85 




300 


P.:P.:P.:Z=1 




305 


F.X=1T03:P." ", 




310 


F.Y=1T03 




315 


V=A(Z) 




320 


IF V<0 G. 475 




325 


P.Z;" "; 




330 


Z=Z+1:N.Y 




335 


P.:N.X 




340 


P.:P. 




345 
350 
355 


Y=0 

F.Z=1T09 

X=Z 




360 


IF A(X)<0 THEN X=0 




365 


Y=Y+X 




370 


N.Z 




375 


IF Y=0 G. 490 
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380 IFA(1)=0 G. 405 

385 X=A(1) 

390 IF X=A(2) GOS. 500 

395 IF X=A(4) GOS. 510 

400 IF X=A(5) GOS. 520 

405 IF A(2) =0 G. 420 

410 X=A(2) 

415 IF X=A(5) GOS. 530 

420 IF A(3)=0 G. 440 

425 X=A(3) 

430 IF X=A(6) GOS. 520 

435 IF X=A(5) GOS. 510 

440 IF A(4)=0 G. 455 

445 X=A(4) 

450 IF X=A(5) GOS. 540 

455 IF A(7)=0 G. 470 

460 X=A(7) 

465 IF X=A(8) GOS. 520 

470 IF M=l G. 85 

471 IF M=2 G. 120 

472 IF M=3 G. 40 
475 IFV=-1P."X"; 
480 IFV=-2P."0"; 
485 G. 330 

490 P. "TIE GAME - LETS TRY AGAIN" 

495 G. 15 

500 IF X=A(3) G. 550 

505 RET. 

510 IF X=A(7) G. 550 

515 RET. 

520 IF X=A(9) G. 550 

525 RET. 

530 IF X=A(8) G. 550 

535 RET. 

540 IF X=A(6) G. 550 

545 RET. 

550 IFX=-lP."r; 

555 IF X=- 2 P. "YOU"; 

560 P. "WIN!"; 

565 END 

Summary Of Variables Used 

N TURN SELECT 
S SPACE PLAYED 
V SPACE VALUES 
X TIMING/VARIOUS 



133 



Y TIE CHECK / BOARD DRAWING 


Z SPACE NUMBER 




Sample Run 






LET'S PLAY TIC-TAC-TOE 


YOU TAKE THE '0' AND I'LL TAKE THE 'X' 


1 


2 


3 


4 


5 


6 


7 


8 


9 


YOU GO FIRST 






WHICH SPACE WILL YOU PLAY? 5 


1 


2 


3 


4 





6 


7 


8 


9 


I'LL PLAY SPACE #3 




1 


2 


X 


4 





6 


7 


8 


9 


WHICH SPACE WILL YOU PLAY? 7 


1 


2 


X 


4 





6 





8 


9 


I'LL PLAY SPACE #6 




1 


2 


X 


4 





X 





8 


9 


WHAT SPACE WILL YOU PLAY? 9 


1 


2 


X 


4 





X 





8 





I'LL PLAY SPACE #8 




1 


2 


X 


4 





X 





X 





WHAT SPACE WILL YOU PLAY? 1 





2 


X 


4 





X 





X 





YOU WIN!! 
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Chapter 2 
Two-Player Games 




With the three games in this chapter you can enjoy your computer 
with a friend. You play against each other and the computer keeps 
tabs on everything. 

To And Fro and Passing Points are designed on a modified 
board game concept and Money Mad is a light-hearted approach to 
the stock market 
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To And Fro 

This is a fairly simple two-player game. The players move 
along an imaginary board of 100 spaces (the computer does not 
draw the board, but it continually prints out what spaces the players 
are on). On each move a player can move from 1 to 6 spaces: the 
object is to reach the 100th space. But here's the catch; each time 
you move to a space, the computer tells you its value from -6 to 
+6. If the value is zero, nothing happens. If the value is positive 
you are moved ahead that many spaces, and if it is negative you're 
moved back. The value of the second space you land on is ignored. 

The space values are identical for both players, and remain 
constant throughout the game. See Fig. 2-1 for the flowchart. 

Standard BASIC 

5 FOR X=1T025: PRINT: NEXT X 

10 PRINT" ","TO AND FRO": PRINT 

12 PRINT"PLAYER#1"; 

15 INPUT A$ 

17 PRINT"PLAYER#2"; 

20 INPUT B$ 

22 PRINT 

25 PRINT'THE OBJECT IS TO MOVE FROM POSITION 1 TO" 

30 PRINT-POSITION 100. IF YOU GO PAST 100 YOU WILL" 

35 PRINT'LOOP BACK TO THE START. EACH MOVE MAY BE" 

40 PRINT"FROM 1 TO 6 SPACES. SOME SPACES WILL SEND" 

45 PRINT'YOU FORWARD, OTHERS BACKWARD. THE SPACE" 

47 PRINT'VALUE IS THE SAME FOR BOTH PLAYERS. THE" 

50 PRINT'FIRST TO LAND ON POSITION 100 WINS. " 

52 FORX=lTO100 

54 LETY=INT(RND(0)*13)-6 

56 LETA(X)=Y 

58 NEXTX 

60 FORX=lTO20 

62 LETY=INT(RND(0)*100) 

64 LET A(Y)=0: NEXTX 

66 LETA(1)=0 

68 LETA(100)=0 

70 LETA=1:LETB=1 

75 LETT=INT(RND(0)*2)+1 

77 IF T=2 THEN GOTO 120 

80 GOSUB150 

85 GOSUB170 

90 LETA=A+M 
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95 


LETC=A 


100 


GOSUB150 


105 


GOSUB200 


110 


LETA=A+M 


115 


GOSUB 150 


120 


GOSUB 160 


125 


GOSUB 170 


127 


LETB=B+M 


130 


LETC=B 


135 


GOSUB 160 


140 


GOSUB 200 






|PRINT1NSTRUCTIQNS| 

-JL_ 

SET UP BOARD 



TURN SELECT 




A$S \ N Q -^ / B$ S \ NO 

TURN?/ ** \ TURN? t 






c 



3 



YES 



SET NEW 
LOCATION 



ADJUST 
SPACE VALUE 



RESET TURN 



Fig. 2-1 . FlowchartforToand Fro, 
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142 LETB=B+M 

145 GOSUB160 

147 GOTO 85 

150 PRINTA$;"ISATSPACE#";A 

155 GOTO 255 

160 PRINT B$;" IS AT SPACE #";B 

165 GOTO 255 

170 PRINT" YOUR MOVE"; 

172 INPUT M 

175 LETM=INT(M) 

177 IFM<THENGOTO170 

180 IF M>6 THEN GOTO 170 

185 RETURN 

200 FORX=1T0470:NEXTX 

205 LETM=A(C) 

210 IF M=0 THEN GOTO 235 

215 IF M<0 THEN GOTO 240 

220 PRINT'MOVE AHEAD ";M;" SPACES" 

225 FORX=lTO470:NEXTX 

227 PRINT 

230 RETURN 

235 PRINT'BLANK SPACE" 

237 GOTO 225 

240 LETN^~M 

245 PRINT'MOVE BACK ";N;" SPACES" 

250 GOTO 225 

255 IF A> 100 THEN LET A= A- 100 

260 IF A=100 THEN GOTO 285 

265 IFA<1THENLETA=1 

267 IFB>100THENLETB=B-100 

270 IF B=100 THEN GOTO 290 

275 IFB<1THENLETB=1 

280 RETURN 

285 PRINT A$; 

287 GOTO 295 

290 PRINT B$; 

295 PRINT" WINS!" 

300 END 

TRS-80 BASIC 

10 CLS:P.:P."VTOANDFRO":P. 

15 IN/TLAYER#1";A$ 

20 IN. "PLAYER #2 ";B$ 

25 P.iP.'THE OBJECT IS TO MOVE FROM POSITION 1 TO 
POSITION 100" 
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30 


P. "IF YOU GO PAST 100 YOU WILL LOOP BACK TO THE 




START." 


35 


P. "EACH MOVE MAY BE FROM 1 TO 6 SPACES" 


40 


P. "SOME SPACES WILL SEND YOU FORWARD, OTHERS" 


45 


P. "BACKWARD. THE SPACE VALUE IS THE SAME FOR 




BOTH" 


50 


P. "PLAYERS. THE FIRSTTO LAND ON POSITION 100 WINS." 


55 


F.X=lTO100:Y=RND(13)-7:A(X)=Y:N.X:A(l)=0 


60 


F.X=lTO20:Y=RND(100):A(Y)=0:N.X:A(100)=0 


65 


A=1:B=1 


70 


T=RND(2) 


75 


IFT=2G.120 


80 


GOS.150 


85 


GOS.170 


90 


A=A+M 


95 


C=A 


100 


GOS.150 


105 


GOS.200 


110 


A=A+M 


115 


GOS.150 


120 


GOS.160 


125 


GOS.170 


130 


B=B+M:C=B:GOS.160 


135 


GOS.200 


140 


B=B+M:GOS.160:G.85 


150 


P.A$;"ISATSPACE#";A 


155 


G.255 


160 


P.B$;"ISATSPACE#";B 


165 


G.255 


170 


IN."YOURMOVE";M 


175 


M=INT(M):IFM<1G.170 


180 


IFM>6G.170 


185 


RET. 


200 


F.X=lTO470:N.X 


205 


M=A(C) 


210 


IFM=0G.235 


215 


IFM<0G.240 


220 


P. "MOVE AHEAD ";M;" SPACES" 


225 


F.X=lTO470:N.X:P. 


230 


RET. 


235 


P."BLANKSPACE":G.225 


240 


N=-M 


245 


P. "MOVE BACK "; N; " SPACES" 


250 


G.225 


255 


IFA>100THENA=A-100 


260 


IFA=100G.280 
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262 


IfA<lTHENA=l 


265 


IFB>100THENB=B-100 


267 


IFB=100G-285 


270 


IFB<1THENB=1 


275 


RET. 


280 


P.A$;:G.290 


285 


P.B$; 


290 


P. "WINS!" 


295 


END 


Summary Of Variables Used 


A$ 


PLAYER #1 


B$ 


PLAYER #2 


A 


PLAYER #1'S SPACE 


B 


PLAYER #2'S SPACE 


C 


INTERMEDIATE SPACE 


M 


MOVE 


N 


BACKWARD MOVE 


T 


TURN COUNTER 


X 


TIMING 


Y 


VALUE SETTING 



Sample Run (Excerpt) 

JOE IS AT SPACE #6 
YOUR MOVE? 5 
JOE IS AT SPACE #11 
BLANK SPACE 
JOE IS AT SPACE #11 
BILL IS AT SPACE #8 
YOUR MOVE? 4 
BILL IS AT SPACE #12 
MOVE AHEAD 6 SPACES 
BILL IS AT SPACE #18 
JOE IS AT SPACE #11 
YOUR MOVE? 6 
JOE IS AT SPACE #17 
MOVE BACK 2 SPACES 
JOE IS AT SPACE #15 
BILL IS AT SPACE #18 
YOUR MOVE? 4 
BILL IS AT SPACE #22 
MOVE AHEAD 2 SPACES 
BILL IS AT SPACE #24 
JOE IS AT SPACE #15- 
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Passing Points 



In this game the players are on a circular "board" of 25 spaces. 
Each move can be from 1 to 5 spaces. After passing space #25, the 
players loop back around to space #1 again. Each space has a point 
value from -10 to +10. Before the computer reveals the point 
value of the space, you have the option of either keeping the points 
yourself or passing them over to your opponent. Obviously, the 
way to win this game is to remember as many space values from 
previous laps that you can (taking notes is cheating). Whoever 
reaches 100 points first, wins. Conversely, if a player reaches 
- 100 points, he or she loses. 

The strategy in this game is in deciding whether to go for 
negative points to hurt your opponent, or positive points to help 
yourself. See Fig. 2-2 for the flowchart. 



Standard BASIC 


5 


PRINT:PRINT 


7 


DIM A(25) 


10 


PRINT' "/'PASSING POINTS" 


15 


PRINT'ENTER 1 FORINSTRUCTIONSOR0TOPLAY" 


17 


INPUT X 


20 


IF X>0 THEN GOTO 350 


25 


REM* SET SPACE VALUES * 


30 


FORX=1T025 


35 


LET Y=INT(RND(0)*21)- 10 


40 


LETA(X)=Y 


45 


NEXTX 


50 


LETA=1:LETB=1 


55 


LETC=0:LETD=0 


60 


PRINT'PLAYER#1"; 


62 


INPUT A$ 


65 


PRINPPLAYER#2"; 


67 


INPUT B$ 


70 


REM* PLAYER #1'STURN* 


75 


GOSUB200 


80 


PRINT A$; 


85 


GOSUB250 


90 


LETA=A+M 


95 


IF A>25 THEN LET A=A-25 


100 


PRINT'SPACE #";A 


105 


LETJ=A(A) 


110 


GOSUB300 


115 


IFG=1THENLETD=D+J 
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120 IFG=2THENLETC=C+J 

125 REM* PLAYER #2'STURN* 

130 GOSUB200 

135 PRINT B$; 

140 GOSUB250 

145 LETB=B+M 

150 IFB>25THENLETB=B-25 

155 PRINP'SPACE#";B 

160 LETJ=A(B) 

165 GOSUB300 

170 IFG=1THENLETC=C+J 

175 IFG=2THENLETD=D+J 

180 GOTO 70 

200 FORX=1T030 

202 PRINT:NEXTX 

205 PRINT"PLAYER",A$,B$ 

210 PRINT"SPACE",A,B 

215 PRINT'SCORE",C,D 

217 PRINT 

220 IFC<-99THENGOTO405 

225 IFD<-99THENGOT0415 

230 IFO99THENG0T0415 

235 IFD>99THENGOTO405 

240 RETURN 

250 PRINT" YOUR MOVE"; 

255 INPUT M 

260 REM* VALIDITY CHECK* 

265 LETM=INT(M) 

270 IFM<lTHENGOTO250 

275 IF M>5 THEN GOTO 250 

280 F0RX=1T0333 

285 NEXTX 

290 RETURN 

300 REM* THE CHOICE* 

305 PRINT "ENTER 1 TO PASS THE POINTS." 

310 PRINT"ENTER 2 TO KEEP THE POINTS." 

315 INPUT G 

320 IF G=l THEN 335 

325 IF G=2 THEN GOTO 335 

330 GOTO 310 

335 FORX=lTO400:NEXTX 

340 PRINT"VALUE=";J 

345 RETURN 

350 PRINT" "."INSTRUCTIONS" 

355 PRINT'YOU ARE ON A CIRCULAR PATH OF 25 SPACES" 

360 PRINT'EACH SPACE HAS A VALUE FROM- 10 TO +10." 
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Fig. 2-2. Flowchart for 
Passing Points. 



SET SPACE VALUES 
d VARIABLES 



1 



3 



■o 



asturnH 



j REPOR T~] 














( INPUT \ 


ADJUST AS 
SCORE 


I PASS OR KEEP'' 1 




\~ ^ 




1 




* 


f 


ADJUST BS SCORE 










1 


f 










ADJUST BS 

SCORE 
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365 PRINT'YOU CAN CHOOSE TO KEEP THE POINTS OR PASS" 

370 PPJNT'THEM TO YOUR OPPONENT. THE GAME IS OVER" 

375 PRINT' WHEN EITHER PLAYER REACHES 100 OR - 100. " 

380 PRINT'THE OBJECT IS TO REMEMBER AS MANY SPACE" 

385 PRINT'VALUES AS POSSIBLE SO YOU CAN KNOW WHAT" 

390 PRINT'TO CHOOSE. IT'S CHEATING TO KEEP NOTES" 

395 PRINT'PRESS 'ENTER' TO PLAY. " 

400 INPUT A$ 

402 GOTO 25 

405 PRINT B$; 

410 GOTO 420 

415 PRINT A$; 

420 PRINT" WINS!" 

425 END 

TRS-80 BASIC 

10 P.:P.:P." "."PASSING POINTS": P. 

15 IN."ENTER 1 FOR INSTRUCTIONS OR TO PLAY ";X 

20 IFX>0G.350 

25 F.X=1T025:Y=RND(21)-11 

30 A(X)=Y:N.X 

35 A=1:B=1:C=0:D=0 

40 IN."PLAYER#1";A$ 

45 IN. "PLAYER #2 ";B$ 

70 GOS.200 

75 P.A$; 

80 GOS.250 

85 A=A+M 

90 IFA>25THENA=A-25 

95 P."SPACE#";A 

100 J=A(A) 

105 GOS.300 

110 IFG=1THEND=D+J 

115 IFG=2THENC=C+J 

120 GOS.200 

125 P.B$ 

130 GOS.250 

135 B=B+M 

140 IFB>25THENB=B-25 

145 P."SPACE#";B 

150 J=A(B) 

155 GOS.300 

160 IFG=1THENC=C+J 

165 IFG=2THEND=D+J 

170 G.70 

200 CLS:P."PLAYER",A$,B$ 
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205 P."SPACE",A,B 

210 P."SCORE",C,D:P. 

215 IFC<-99G.405 

220 IFD<-99G.415 

225 IFC>99G.415 

230 IFD>99G.405 

235 RET. 

250 IN."YOURMOVE";M 

255 M=INT(M) 

260 IFM<1G.250 

265 IFM>5G.250 

270 F.X=1T0333:N.X. 

275 RET. 

300 P. "ENTER 1 TO PASS THE POINTS." 

305 IN. "ENTER 2 TO KEEP THE POINTS."; G 

310 IFG=1G.325 

315 IFG=2G.325 

320 G.305 

325 F.X=lTO400:N.X 

330 P."VALUE=";J 

335 RET. 

350 P." "."INSTRUCTIONS" 

355 P."YOUAREONACIRCULARPATHOF25SPACES." 

360 P. "EACH SPACE HAS A VALUE FROM - 10 TO +10." 

365 P."YOUCANCHOOSETOKEEPTHEPOINTSORPASS" 

370 P. "THEM TO YOUR OPPONENT. THE GAME IS OVER" 

375 P."WHENEITHERPLAYERREACHESl00OR-100" 

380 P.'TOINTS. THE OBJECT IS TO REMEMBER AS MANY" 

385 P. "SPACE VALUES AS POSSIBLE SO YOU CAN KNOW" 

390 P."WHATTOCHOOSE.IT'SCHEATINGTOKEEF , 

395 P. "NOTES. PRESS 'ENTER' TO PLAY." 

400 IN.A&G.25 

405 P.B$; 

410 G.420 

415 P.A$ 

420 P."WINS!" 

425 END 

Summary of Variables Used 

A$ PLAYER #1 

B$ PLAYER #2 

A PLAYER #1*S SPACE 

B PLAYER #2'S SPACE 

C PLAYER #1'S SCORE 

D PLAYER #2'S SCORE 

G PASSOPTION 
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J 


SPACE VALUE 


K 


KEEP (=2) 


M 


MOVE 


P 


PASS(=1) 


X 


TIMING 


Y 


VALUE SETTING 



Sample Run (Excerpt) 

PASSING POINTS 

ENTER 1 FOR INSTRUCTIONS OR TO PLAY ?0 

PLAYER #1? JOE 

PLAYER #2? BILL 

PLAYER JOE BILL 

SPACE 1 1 

SCORE 

JOE YOUR MOVE? 5 

SPACE #6 

PASS IT OR KEEP IT? KEEP 

VALUE =6 

PLAYER JOE BILL 

SPACE 6 1 

SCORE 6 

BILL YOUR MOVE? 4 

SPACE #5 

PASS IT OR KEEP IT? KEEP 

VALUE =- 10 

PLAYER JOE BILL 

SPACE 6 5 

SCORE 6 - 10 

JOE YOUR MOVE? 5 

SPACE #11 

PASS IT OR KEEP IT? PASS 

VALUE = 4 

PLAYER JOE BILL 

SPACE 11 5 

SCORE 6 -6 
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Money Mad 



The object in Money Mad is to make as much money off your 
"investments" as possible. Each player starts out with $10,000. 
The first player to double that amount wins. Conversely, the first 
player to squander down to a net value of $1000, or cash holdings of 
less than $500, loses. 

On each turn you can buy any of six offered stocks. By 
watching the way their values fluctuate on each report, you can try 
to determine which stocks are the most valuable. Remember 
though, the stocks which gain the greatest amounts can also lose 
the greatest amounts. Sometimes a stock's value may go negative. 
A player could cheat by buying up a few hundred shares of a 
negative stock to increase cash holdings. If you want to prevent this 
you can add the following step: 

242 IF Q<0 THEN GOTO 255 
The TRS-80 version would read— 
242IFQ<0G.250 

Rather than buying one of the established stocks, the players 
can choose to invest in an "independent venture". This is a 
one-shot deal that affects only the player's cash, not his stockhold- 
ings. The player can invest as much as he wants (provided, of 
course, he has the cash to pay for it). He can gain up to 100% of his 
investment, or he can lose up to 100%. For example, let's assume 
the player has $10,000, and invests $1000. If his investment gains 
100% he'll end up with $11,000™ if it loses 100% he'll only have 
$8000. Usually, of course, it will be somewhere between the 
extremes, but the loss or gain is entirely random. 

All in all, this game is designed to be fairly unpredictable, but 
not pure chance. Strategy can be used to your advantage. At any 
rate, the result is a game that's almost as screwy as the "real" 
world of big finance. 



Standard BASIC 


5 


PRINT: PRINT: PRINT 


7 


PRINT" "/'MONEY MAD 


10 


PRINT 


12 


LETA(70)=0 


14 


PRINTTYCOON#l"; 


16 


INPUT A$ 


18 


PRINT-TYCOON #2"; 
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20 INPUT B$ 

22 LETX=10000:LETU=0 

24 LETY=10000:LETV=0 

26 FORZ=lTO20 

28 LETA(Z)=0:NEXTZ 

30 LETA=INT(RND(0)*500)+1 

32 LETB=INT(RND(0)*500)+1 

34 LETC=INT(RND(0)*500)+1 

36 LETD=INT(RND(0)*500)+1 

38 LETE=INT(RND(0)*500)+1 

40 LETF=INT(RND(0)*500)+1 

42 PRINT'YOU EACH START OUT WITH $10, 000" 

44 PRINT'THE FOLLOWING STOCKS ARE AVAILABLE" 

46 GOSUB370 

48 LETG=INT(RND(0)*100)/100 

50 LETH=INT(RND(0)*100)/100 

52 LETI=INT(RND(0)*100)/100 

54 LETJ=INT(RND(0)*100)/100 

56 LETK=INT(RND(0)*100)/100 

58 LETL=1NT(RND(0)*100)/100 

60 FORZ=lto666:NEXTZ 

65 PRINT"NEXT REPORT" 

70 GOSUB300 

75 PRINT'TYCOON'7'CASH, "STOCKHOLDINGS" 

80 PRINTA$,X,U 

82 PRINT B$,Y,V 

85 GOSUB260 

90 PRINTA$;"WHATWILLYOUINVESTIN?" 

92 LETA(23)=1 

95 GOSUB195 

100 IF T>X GOTO 410 

105 LETR=A(M) 

107 LETX=X-T 

110 LETR=R+S 

112 LETA(M)=R 

115 PRINTB$;"WHATWILLYOUINVESTIN?" 

117 LETA(23)=2 

120 GOSUB195 

122 IFT>YTHENGOTO410 

125 LETM=M+10 

127 LETR=A(M):LETY=Y-T 

130 LETR=R+S 

132 LETA(M)=R 

135 GOTO60 

140 PRINT'AMOUNT INVESTED" 

142 INPUT T 
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144 LETS=0 

146 LETM=0 

148 LETN=INT(RND(0)*200)-99 

150 F0RZ=1T0555:NEXTZ 

152 IF A(23)=2 THEN GOTO 175 

155 IF T>X THEN GOTO 410 

160 PRINT"PAYOFFIS";N;"%" 

162 LETX=X-T 

164 LETN=N/100:LETT=T+(T*N) 

166 LETX=X+T 

168 LETT=0 

170 RETURN 

175 IF T>Y THEN GOTO 410 

180 PRINT"PAYOFFIS";N;"%" 

182 LETY=Y-T 

184 LETN=N/100 

186 LETT=T+(T*N) 

188 LETY=Y+T 

190 LETT=0 

192 RETURN 

195 PRINT"(ENTERl-7) "; 

197 INPUT M 

200 LETM=INT(M) 

202 IFM<1 THEN GOTO 195 

205 IFM>7THENGOT0195 

210 IFM=1THENLETQ=A 

215 IFM=2THENLETQ=B 

220 IFM=3THENLETQ=C 

225 IFM=4THENLETQ=D 

230 IFM=5THENLETQ=E 

235 IFM=6THENLETQ=F 

237 REM* M=7 IS FOR INDEPENDENT VENTURES* 

240 IF M=7 THEN GOTO 140 

245 PRINT' # OF SHARES"; 

247 INPUTS 

250 LETT=S*Q 

252 PRINT"TOTALCOST=$";T 

255 RETURN 

260 LETM=X+U:LETN=Y+V 

262 IF X<500 THEN GOTO 505 

263 IF Y<500 THEN GOTO 505 
265 IF M< 1000 THEN GOTO 290 
270 IF N< 1000 THEN GOTO 420 
275 IF M>20000THEN GOTO 445 
280 IF N>20000 THEN GOTO 430 
285 RETURN 
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290 PRINT A$;" IS BANKRUPT" 

295 END 

300 LETS=1:LETR=INT(RND(0)*5)+1 

302 IFR>3THENLETS=-1 

305 LETA=A+(A*S*(G+R/170)) 

310 LETS=1:LETR=INT(RND(0)*5)+1 

312 IFR>3THENLETS=-1 

315 LETB=B+(B*S*(H+R/174)) 

320 LETS=1:LETR=INT(RND(0)*5)+1 

322 IFR>3THENLETS=-1 

325 LETC=C+(C*S*(I+R/170)) 

330 LETS=1:LETR=INT(RND(0)*5)+1 

332 IFR>3THENLETS=-1 

335 LETD=D+(D*S*(J+R/171)) 

340 LETS=1:LETR=INT(RND(0)*5)+1 

342 IFR>3THENLETS=-1 

345 LETE=E+(E*S*(K+R/171)) 

350 LETS=1:LETR=INT(RND(0)*5)+1 

352 IFR>3THENLETS=-1 

355 LETF=F+(F*S*(L+R/171)) 

360 LET U=(A(1)*A)+(A(2)*B)+(A(3)*C)+(A(4)*D) 

362 LETU=U+(A(5)*E)+(A(6)'F) 

365 LET V=(A(11)*A)+(A(12)*B)+(A(13)*C)+(A(14)*D) 

367 LETV=V+(A(15)'E)+(A(16)*F) 

370 PRINT'#1 ALLWEED ACRES","$"; A 

375 PRINT'#2 BURNT BAKERIES", "$";B 

380 PRINT"#3 CRUMBLED COMMUNICATIONS", "$";C 

385 PRINT"#4 DENTED DESKS, INC.","$";D 

390 PRINT'#5 ELONGATED ENTERPRISES", "$";E 

395 PRINT'#6FIZZLEDFINANCE","$";F 

400 PRINT"#7 INDEPENDENT VENTURES","?" 

405 RETURN 

410 PRINT'YOU HAVE OVER-INVESTED! YOU CANT AFFORD" 

415 PRINT'IT! YOU LOSE" 

417 END 

420 PRINTB$;" IS BANKRUPT" 

425 END 

430 PRINT B$;" HAS DOUBLED HIS FORTUNE!" 

435 PRINT' A FINANCIAL WIZARD!" 

440 END 

445 IF N>20000 THEN GOTO 460 

450 PRINT A$;" HAS DOUBLED HIS FORTUNE!" 

455 GOTO 435 

460 PRINT'YOU HAVE BOTH DOUBLED YOUR FORTUNES!" 

465 IF N>M THEN GOTO 485 

470 IF M>N THEN GOTO 495 



150 



475 PRINT'INANEXACTTIE!?!" 

480 END 

485 PRINT'BUT";B$;"ISRICHERTHAN";A$ 

490 END 

495 PRINT-BUT"; A$;"IS RICHER THAN ";B$ 

500 END 

505 PRINT"TYCOON","CASH","HOLDINGS" ( "TOTALASSETS" 

510 PRINTA$,X,U,M 

515 PRINT B$,Y,V,N 

520 IFM=NTHENPRINTTIE-NOONE"; 

525 IF M>N THEN PRINT A$; 

530 IFN>MTHENPRINTB$; 

535 PRINT' WINS!" 

540 END 

TRS-80 BASIC 
10 CLS:P.:P." 'V'MONEYMAD":P.:X=10000:Y=10000 
15 IN."TYCOON#1";A$:IN."TYCOON#2"B$:A(70)=0 
20 F.Z=1TO20:A(Z)=0:N.Z:A=RND(500):B=RND(500): 

C=RND(500) 
25 D=RND(500):E=RND(500):F=RND(500):G=RND(100)/100 
30 P."YOU EACH START OUT WITH $10,000":H=RND(100)/100 
35 P.'THE FOLLOWING STOCKS ARE AVAILABLE":GOS.370 
40 I=RND(100)/100:J=RND(100/100:K=RND(100/100: 

L=RND(100)/100 
60 F.Z=1T0666:N.Z:P."NEXT REPORT': GOS.300 
65 P. "TYCOON","CASH", "STOCKHOLDINGS" 
70 P.A$,X,U:P.B$,Y,V:GOS. 260:A(23)=1 
75 P.A$;" WHAT WILL YOU INVEST IN?" :GOS. 195 
80 IFT>XG.410 

85 R=A(M):X=X-T:R=R+S:A(M)=R:A(23)=2 
90 P.B$;"WHATWILLYOUINVESTIN?":GOS.195 
95 IFT>YG.410 

100 M=M+10:R=A(M):Y=Y-T:R=R+S:A(M)=R:G.60 

140 IN."AMOUNT INVESTED";T:M>2:N=RND(200>- 100:S=Q 

145 F.Z=1T0555:N.Z:IFA(23)=2G.175 

150 IFT>XG.410 

155 P."PAYOFFIS";N;"%":X=X-T:N=N/100:T=T+(T'N) 

160 X=X+T:T=0:RET. 

175 IFT>YG.410 

180 P.'TAYOFFIS ";N;"%":Y=Y-T:N=N/100:T=T+(TN) 

185 Y=Y+T:T=0:RET. 

195 IN."(ENTERl-7) ";M:M=INT(M) 

200 IFM<1 GOTO 195 

205 IF M>7 GOTO 195 

210 IFM=1THENQ=A 

215 IFM=2THENQ=B 

220 IFM=3THENQ=C 
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225 IFM=4THENQ=D 

230 IFM=5THENQ=E 

235 IFM=6THENQ=F 

240 IFM=7G.140 

245 IN."# OF SHARES";S:T=S*Q:P. "TOTAL COST = $";T 

250 RET. 

260 M=X+U:N=Y+V:IFX<500G.505 

262 IFY>500G.505 

265 IF M< 1000. G. 290 

270 IF N< 1000 G. 290 

275 IFM>20000G.445 

280 IFN>20000G.430 

285 RET. 

290 P. A$; " IS BANKRUPT": END 

300 S=1:R=RND(5);IFR>3THENS=-1 

305 A=A+(A*S*(G+R/170)):S=1:R=RND(5): IFR>3THENS=-1 

310 B=B+(B*S*(H+R/170)):S=1:R=RND(5):IFR>3THENS=-1 

315 C=C+(C*S*(I+R/170)):S=1:R=RND(5):IFR>3THENS=-1 

320 D=D+(D*S*G+R/170)):S=1:R=RND(5):IFR>3THENS=-1 

325 E=E+(E*S*(K+R/170)):S=1:R=RND(5):IFR>3THENS=-1 

330 F=F+(F*S*(L+R/1.7)) 

360 U=(A(1)*A)+(A(2)*B)+ (A(3)*C)+(A(4)*D)+(A(5)*E)+(A(6)*F) 

365 V=(A(11)*A)+(A(12)*B)+(A(13)*C)+(A(14)*D)+(A(15)*E)+ 

(A(16)*F) 
370 P."#l ALLWEED ACRES","$";A:P."#2 BURNT BAKE- 
RIES", "$";B 
375 P."#3 CRUMBLED COMMUNICATIONS","$";C:P."#4 DEN- 
TED DESKS.ING", 
380 P. "$"; D: P. "#5 ELONGATED ENTERPRISES", "$"; E 
385 P."#6 FIZZLED FINANCE", "$";F:P."#7 INDEPENDENT 

VENTURES","?" 
390 RET. 

410 P."YOU HAVE OVER-INVESTED! YOU CANT AFFORD IT" 
415 P. "YOU LOSE!": END 
420 P.B$;"ISBANKRUPT":END 
430 P.B$;"HAS DOUBLED HIS FORTUNE!" 
435 P."AFINANCIALWIZARD!":END 
445 IFN>20000G.460 

450 P.A$;" HAS DOUBLED HIS FORTUNE!": G.435 
460 P."YOU HAVE BOTH DOUBLED YOUR FORTUNES!":IF N>M 

G.485 
465 IFM>NG.495 
470 P."INANEXACTTIE!":END 
485 P. "BUT "; B$; " IS RICHER THAN "; A$: END 
495 P. "BUT "; A$; " IS RICHER THAN "; B$: END 
505 P."TYCOON","CASH","STOCKHOLDINGS","TOTALASSETS" 
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510 P. A$, X, U,M: P. B$, Y, V, N:IF M=N P. "TIE - NO ONE"; 

515 IFM>NP.A$; 

520 IFM<NP.B$; 

525 P."WINS!":END 

Money Mad 

A$ TYCOON #1 

B$ TYCOON #2 

A ALLWEED ACRES* STOCK VALUE 

B BURNT BAKERIES* STOCK VALUE 

C CRUMBLED COMMUNICATIONS * STOCK VALUE 

D DENTED DESKS, INC * STOCK VALUE 

E ELONGATED ENTERPRISES * STOCK VALUE 

F FIZZLED FINANCE * STOCK VALUE 

G ALLWEED ACRES* GROWTH PERCENTAGE 

H BURNT BAKERIES* GROWTH PERCENTAGE 

I CRUMBLED COMMUNICATIONS * GROWTH PERCENTAGE 

J DENTED DESKS, INC * GROWTH PERCENTAGE 

K ELONGATED ENTERPRISES * GROWTH PERCENTAGE 

L FIZZLED FINANCE * GROWTH PERCENTAGE 

M INVESTMENT CHOICE/TYCOON #l's TOTAL WORTH 

N TYCOON #2's TOTAL WORTH 

Q VARIOUS CALCULATIONS 

R VARIOUS CALCULATIONS 

S VARIOUS CALCULATIONS 

T AMOUNT INVESTED 

U TYCOON #1'S STOCKHOLDINGS 

V TYCOON #2*S STOCKHOLDINGS 
X TYCOON #1'S MONEY 

Y TYCOON #*S MONEY 

Sample Run (Excerpt) 

MONEY MAD 
TYCOON #1 ?JOE 
TYCOON #2 ?BILL 
YOU EACH START OUT WITH $10000 
THE FOLLOWING STOCKS ARE AVAILABLE 
#1 ALLWEED ACRES $376 
#2 BURNT BAKERIES $452 
#3 CRUMBLED COMMUNICATIONS $165 
#4 DENTED DESKS, INC. $200 
#5 ELONGATED ENTERPRISES $419 
#6 FIZZLED FINANCE $68 
#7 INDEPENDENT VENTURES ? 
NEXT REPORT 
#1 ALLWEED ACRES $454.5712 
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#2 BURNT BAKERIES $880.3152 

#3 CRUMBLED COMMUNICATIONS $221.9725 

#4 DENTED DESKS, INC. $98.94 

#5 ELONGATED ENTERPRISES $145.4349 

#6 FIZZLED FINANCE $110.6768 

#7 INDEPENDENT VENTURES ? 
TYCOON CASH STOCKHOLDINGS 
JOE 10000 
BILL 10000 

JOE WHAT WILL YOUINVEST IN? 

(ENTER 1-7) ?1 

#OFSHARES?10 

TOTAL COST =$4544.712 

BILL WHAT WILL YOU INVEST IN? 

(ENTER 1-7) ?2 

# OF SHARES? 5 
TOTAL COST = $4401.576 
NEXT REPORT 

#2 BURNT BAKERIES $279.3634 

# BURNT BAKERIES $1662.6513 
#3 CRUMBLED COMMUNICATIONS $390.4039 
#4 DENTED DESKS, INC. $137.3124 
#5 ELONGATED ENTERPRISES $59.1164 
#6 FIZZLED FINANCE $180.3404 
#7 INDEPENDENT VENTURES ? 
TYCOON CASH STOCKHOLDINGS 

JOE 5455.288 2793.634 

BILL 5598.424 8313.2565 

JOE WHATWILL YOUINVEST IN? 

(ENTER 1-7) ?7 

AMOUNT INVESTED? 2000 

PAYOFF IS 58% 

BILL WHAT WILL YOU INVEST IN? 

(ENTER 1-7) ?7 

AMOUNT INVESTED? 3000 

PAYOFF IS -12% 

NEXT REPORT 

TYCOON CASH STOCKHOLDINGS 

JOE 6615.288 2542.814 

BILL 5598.424 -504.59 

(NOTE - It looks like BILL's in trouble) 
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Gambling Boxes 



In this game, each of the two players starts out with $10. The 
first player to gather more than $500 wins the game. 

On each round the players are offered three mystery boxes 
labeled X, Y, and Z that can multiply their fortunes (the computer 
randomly selects one of the players to go first each round). The 
maximum values for each is explained in the program instructions. 
Notice that, while X can have the greatest multiplier value, it can 
also have the greatest tax rate. Box Z can thus conceivably be 
worth more than box X. This, of course, is the gambling aspect of 
the game. 

On each round any given box may be selected only once. For 
example, if Player #1 takes box X, Player #2 is limited to choosing 
box Y or box Z. See Fig. 2-3 for the flowchart. 

Standard BASIC 

5 PRINT:PRINT:PRINT:PRINT 

7 PRINT" "."GAMBLING BOXES":PRINT 

10 LETA=10:LETB=10 

12 LETX=17:LETY=19:LETZ=23 

15 PRINTTLAYER#1"; 

17 INPUT A$ 

20 PRINT'PLAYER#2"; 

22 INPUT B$ 

25 PRINT 'EACH X BOX CAN MULTIPLY YOUR FORTUNE BY' 

27 PRINT'UP TO 10, WITH UP TO 75% TAXES. EACH" 

30 PRINT'Y BOX CAN MULTIPLY BY UP TO 5 WITH TAXES" 

32 PRINT'UP TO 50%. Z CAN MULTIPLY UP TO 2 WITH" 

35 PRINT"NOMORETHAN25%TAXES." 

45 LETP=INT(RND(0)*2)+1 

47 LETM=INT(RND(0)*100)+1 

50 LETN=INT(RND(0)*50)+1 

52 LETQ=INT(RND(0)*20)+1 

55 LETM=M/10:LETN=N/10:LETQ=Q/10 

57 LETR=INT(RND(0)*75)+1 

60 LETS=INT(RND(0)*50)+1 

62 LETT=INT(RND(0)*25)+1 

64 IF P=l THEN GOTO 100 

66 LETC=0:GOSUB200 

68 GOSUB320 

70 IF A>500 THEN GOTO 150 

75 IF B>500 THEN GOTO 160 

80 PRINT'NEXTROUND" 



155 



85 GOTO 45 

100 LETD=0 

105 GOSUB320 

110 GOSUB200 

115 GOTO 70 

150 PRINT A$;" WINS!" 

155 END 

160 PRINT B$;" WINS!" 

165 END 

200 PRINT B$; ", WHAT BOX WILL YOU TAKE"; 

205 INPUT D 

210 IF D=C THEN GOTO 235 

215 IF D=X THEN GOTO 245 

220 IF D=Y THEN GOTO 265 

225 IF D=Z THEN GOTO 275 

230 GOTO 200 

235 PRINT A$;" ALREADY TOOK THAT BOX" 

240 GOTO 200 

245 LETE=B*M:LETF=E+(R/100) 

247 LET H=R: LET B=E- F: LET L=B 

250 PRINT'VALUE IS $"; E 

255 PRINT'TAXES = "; H; "%" 

257 PRINT'YOU NOW HAVE $"; L 

260 RETURN 

265 LETE=B*N:LETF=E*(S/100) 

267 LETB=E-F:LETH=S:LETL=B 

270 GOTO 250 

275 LETE=B*Q:LETF=E*(T/100) 

277 LETB=E-F:LETH=T:LETL=B 

280 GOTO 250 

285 LETE=A*M:LETF=E*(R/100) 

287 LETA=E-F:LETH=R:LETL=A 

290 GOTO 250 

295 LETE=A*N:LETF=E*(S/100) 

297 LETA=E-F:LETH=S:LETL=A 

300 GOTO 250 

305 LETE=A*Q:LETF=E*(T/100) 

307 LETA=E-F:LETH=T:LETL=A 

310 GOTO 250 

320 PRINT A$;" WHAT BOX WILL YOU TAKE"; 

325 INPUT C 

330 IF C=D THEN GOTO 355 

335 IF C=X THEN GOTO 285 

340 IF C=Y THEN GOTO 295 

345 IF C=Z THEN GOTO 305 

350 GOTO 320 
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f RUN J 



SETINITiAL SCORES 




Fig. 2-3. Flowchart for Gambling Boxes. 



157 



355 PRINT B$;" ALREADY TOOK THAT BOX" 

360 GOTO 320 

TRS-80 BASIC 

5 CLS:P. :P." "/'GAMBLING BOXES":P. 

10 A=10:B=10:X=17:Y=19:Z=23 

15 IN."PLAYER#1";A$:IN."PLAYER#2";B$ 

20 P. "EACH X BOX CAN MULTIPLY YOUR FORTUNE BY" 

25 P."UPTO10, WITH UP TO 75% TAXES. EACH" 

30 P. " Y BOX CAN MULTIPLY BY UP TO 5 WITH TAXES" 

35 P. "UP TO 50%. Z CAN MULTIPLY UPT02 WITH" 

40 P."NO MORE THAN 25% TAXES." 

45 P=RND(2):M=RND(100)/10:N=RND(50)/10 

50 Q=RND(20)/10:R=RND(75):S=RND(50):T=RND(25) 

55 IFP=1G.100 

60 C=0:GOS.200 

65 GOS.320 

70 IFA>500G.150 

75 IFB>500G.160 

80 P/'NEXT ROUND": G.45 

100 D=0:GOS.320 

105 GOS.200 

110 G.70 

150 P.A$rWINS!" 

155 END 

160 P.B$rWINS!" 

165 END 

200 P. B$; ", WHAT BOX WILL YOU TAKE"; 

205 IN.D 

210 IFD=CG.235 

215 IFD=XG.245 

220 IFD=YG.265 

225 IFD=ZG.275 

230 G.200 

235 P. A$;" ALREADY TOOK THAT BOX" 

240 G.200 

245 E=B*M:F=E+(R/100):H=R:B=E-F:L=B 

250 P."VALUEIS$";E 

255 P/TAXES = ";H;"%" 

257 P."YOU NOW HAVE $";L 

260 RET. 

265 E=B*N:F=E*(S/100):H==S:B=E-F:L=B 

270 G.250 

275 E=B*Q:F=E*(T/100):H=T:B=E-F:L=B 

280 G.250 

285 E=A*M: F=E*(R/100): A=E- F: H=R: L= A 
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290 G.250 

295 E=A*N:F=E*(S/100):A=E-F:H=S:L=A 

300 G.250 

305 E=A*Q:F=E*(T/100):A=E-F:H=T:L=A 

310 G.250 

320 P.A$;",WHATBOXWILLYOUTAKE"; 

325 IN.C 

330 IFC=DG.355 

335 IFC=XG.285 

340 IFC=YG.295 

345 IFC=ZG.305 

350 G.320 

355 P.B$;"ALREADYTOOKTHATBOX" 

360 G.320 



Summary of Variables Used 

A$ PLAYER #1 

B$ PLAYER #2 

A A$ SCORE 

B B$ SCORE 

C A$ BOX CHOICE 

D B$ BOX CHOICE 

E BOX VALUE 

F TAXES 

H TAX PERCENTAGE 

L CURRENT SCORE 

M BOX 1 MULTIPLIER 

N BOX 2 MULTIPLIER 

P PLAYER SELECT 

Q BOX3 MULTIPLIER 

R BOX 1 TAX 

S BOX 2 TAX 

T BOX 3 TAX 

X BOX1 

Y BOX 2 
Z BOX3 

Sample Run (Excerpt) 

GAMBLING BOXES 
PLAYER #l?HOMER 
PLAYER #2?JETHRO 

EACH X BOX CAN MULTIPLY YOUR FORTUNE BY 
UP TO 10, WITH UP TO 75% TAXES. EACH 

Y BOX CAN MULTIPLY BY UP TO 5 WITH TAXES 
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UP TO 50%. Z CAN MULTIPLY UP TO 2 WITH 

NO MORE THAN 25% TAXES. 

HOMER, WHAT BOX WILL YOU TAKEPX 

VALUE IS $73 

TAXES = 38% 

YOU NOW HAVE 45.26 

JETHRO, WHAT BOX WILL YOU TAKEPX 

HOMER ALREADY TOOK THAT BOX 

JETHRO, WHAT BOX WILL YOU TAKE? Y 

VALUE IS $21 

TAXES = 42% 

YOU NOW HAVE $12. 18 

NEXT ROUND 

JETHRO, WHAT BOX WILL YOU TAKEPX 

VALUE IS $101,094 

TAXES = 50% 

YOU NOW HAVE $50. 547 

HOMER, WHAT BOX WILL YOU TAKEPZ 

VALUE IS $54. 312 

TAXES = 11% 

YOU NOW HAVE $48. 33768 

NEXT ROUND 

JETHRO, WHAT BOX WILL YOU TAKEPX 

VALUE IS $121.3128 

TAXES = 65% 

YOU NOW HAVE $78.85332 

HOMER, WHAT BOX WILL YOU TAKE? Y 

VALUE IS $145.01304 

TAXES = 7% 

YOU NOW HAVE $134.8621272 

NEXT ROUND 
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Stack Cut 

In this game, the computer shuffles a deck of cards. The suits 
are ignored: only the numerical values are counted. Aces count as 
one, Jacks as 11, Queens as 12, and Kings as 13. There are also two 
jokers in the deck which each count as - 35. 

The players take turns cutting the stack of cards. A player may 
cut from one to ten cards; then the value of the top card is added to 
that player's score. When the deck runs out of cards, the computer 
starts over at the beginning of the deck. The cards all retain the 
same positions throughout the game, and can be played more than 
once, so the position of certain cards can be memorized. For an 
even more difficult version of the game eliminate step 330, which 
displays the card's positional number. 

As the program is written, each player cuts the stack 35 times, 
then the game is ended and the winner is declared. You can vary the 
number of turns in a game by changing step 205. The more turns 
there are, the more times the players will go through the deck, 
turning Stack Cut into more of a game of memory and strategy than 
chance. The first few passes through the deck are inevitably played 
as pure chance. See Fig. 2-4 for the flowchart. 

Standard BASIC 



10 


F0RX=1T054 


15 


LETA(X)=0 


20 


PRINT 


25 


NEXTX 


30 


PRINT" "."STACK CUT" 


35 


LET X=INT (RND(0)*54)+1 


40 


LETA(X)=-35 


45 


LET X=INT(RND(0)*54)+ 1 


50 


IFACXX0THENGOTO45 


55 


LETA(X)=-35 


60 


PRINT-NAME OF PLAYER #1"; 


65 


INPUT A$ 


70 


GOSUB450 


72 


GOSUB450 


74 


LETT=0.5 


76 


LETA=0 


78 


LETB=0 


80 


LETF=1 


82 


LETC=INT(RND(0)*2)+1 


85 


PRINT'NAME OF PLAYER #2"; 


90 


INPUT B$ 


95 


GOSUB450 
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100 


LETX=1 


105 


FOR Y=1T013:F0R Z=1T04 


110 


IF A(X)=0THEN GOTO 125 


115 


LET X=INT(RND(0)*54)+1 


120 


GOTO 110 


125 


LETA(X)=Y 


130 


PRINT: NEXTZ 


135 


NEXTY 


140 


IF C=2 THEN GOTO 180 


150 


GOSUB200 


155 


PRINTAfc 


160 


GOSUB300 


165 


LETA=A+Q 


170 


LETC=2 


180 


GOSUB200 


182 


PRINT B$; 


184 


GOSUB300 


186 


LETB=B+Q 


188 


LETC=1 


190 


GOTO 150 


200 


LETT=T+0.5 


202 


LETS=INT(T) 


205 


IF S>35 THEN GOTO 235 


207 


PRINT "TURN #";S 


210 


PRINT 


215 


PRINT'SCORETODATE" 


220 


PRINT'"; A$,B$ 


222 


PRINT'", A,B 


225 


PRINT 


227 


PRINT 


230 


RETURN 


235 


PRINT'GAMEISOVER" 


237 


PRINT 


240 


F0RX=1T0555 


242 


NEXTX 


245 


PRINT'FINAL SCORE" 


250 


PRINT" ",A$,B$ 


255 


PRINT" ",A,B 


260 


IF A=B THEN GOTO 280 


265 


IF A>B THEN PRINT A$; 


270 


IFA<BTHENPRINTB$; 


275 


PRINT' WINS!" 


277 


END 


280 


PRINTHOW ABOUT THAT?! ** ATIE! 


285 


END 


300 


PRINT*, YOUR CUT"; 
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(^ RUN J 



SHUFFLE 
DECK 



TURN SELECT 




SCORE UPDATE 




ADVANCE SCORE 



1 



SCORE UPDATE 




ADVANCE SCORE 



REVERSE TURN 




NO / LAST 
TURN 



( END ) 



Fig. 2-4. Flowchartfor Stack Cut. 
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302 


INPUT D 


305 


LETD=INT(D) 


310 


IFDM0THENGOTO420 


315 


IF D<1 THEN GOTO 420 


320 


LETF=F+D 


322 


FORX=lTO470 


324 


NEXTX 


326 


IF F>54 THEN LET F=F- 54 


330 


PRINT"CARD#";E 


335 


PRINT'TOUDREW — "; 


337 


LETQ=A(F) 


340 


F0RX=1T0333 


342 


NEXTX 


345 


IFQ>10THENGOTO400 


350 


IF Q<2 THEN GOTO 360 


352 


PRINT Q 


355 


RETURN 


360 


IF Q=- 35 THEN GOTO 375 


365 


PRINT"ACE" 


370 


RETURN 


375 


PRINTJOKER!" 


377 


FORX=lTO370 


380 


NEXTX 


382 


LETG=INT(RND(0)*30)+4 


385 


FORX=lTOG 


387 


LETZ=INT(RND(0)*1047)+1 


390 


PRINT AT Z," HA! "; 


392 


F0RY = 1T075 


394 


NEXTY 


396 


NEXTX 


398 


RETURN 


400 


IF Q =1 1 THEN PRINT "JACK" 


405 


IF Q=12 THEN PRINT "QUEEN" 


410 


IF Q=13 THEN PRINT "KING" 


415 


RETURN 


420 


PRINT'TLEASE DO NOT CHEAT, "; 


425 


IF C=l THEN PRINT A$ 


430 


IF C=2 THEN PRINT B$ 


435 


GOTO 300 


450 


FORX=lT013 


455 


LETY=INT(RND(0)*54)+1 


460 


IF A(Y)=0 THEN GOTO 470 


465 


GOTO 455 


470 


LETA(Y)=X 


475 


NEXTX 


480 


RETURN 
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TRS-80 BASIC 

10 CLS 

15 F.X=lTO54:A(X)=0:N.X 

20 P.:P." "."STACK CUT":P. 

25 X=RND(54) 

30 A(X)=-35 

35 X=RND(54) 

40 IFA(X)<0G.35 

45 A(X)=-35 

50 IN."NAMEOFPLAYER#l";A$ 

55 GOS.450 

60 GOS.450 

65 T=0.5:F=1 

70 A=0:B=0 

75 C=RND(2) 

80 IN."NAME0FPLAYER#2";B$ 

85 GOS.450 

90 X=l 

95 F.Y=1T013:F.Z=1T04 

100 IFA(X)=0G.115 

105 X=RND(54) 

110 G.100 

115 A(X)+y:N.Z 

120 N.Y 

130 CLS 

140 IFC=2G.180 

150 GOS.200 

155 P.A$; 

160 GOS.300 

165 A=A+Q 

170 C=2 

180 GOS.200 

185 P.B$;:GOS.300 

190 B=B+Q:C=1 

195 G.150 

200 T=T+0.5:S=INT(T) 

205 IFS>35G.235 

210 P."TURN#";S:P 

215 P."SCORETODATE" 

220 P."",A$,B$ 

225 P."",A,B:P:P. 

230 RET. 

235 P."GAMEISOVER":P. 

240 F.X=1T0555:N.X 

245 P. "FINAL SCORE" 

250 P."",A$,B$ 
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255 


P."",A,B 


260 


IFA=BG.280 


265 


IFA>BP.A$; 


270 


IFA<BP.B$; 


275 


P."WINS!":END 


280 


P."HOWABOUTTHAT?! ** A TIE! 


285 


END 


300 


IN/\ YOUR CUT"; D 


305 


D=INT(D) 


310 


IFD>10G.420 


315 


IFD<1G.420 


320 


F=F+D:F.X=lTO470:N.X 


325 


IFF>54THENF=F-54 


330 


P."CARD#";F 


335 


P/'YOUDREW — "; 


340 


Q=A(F):F.X=1T0333:N.X 


345 


IFQM0G.400 


350 


IFQ<2G.360 


355 


P.Q:RET. 


360 


IFQ=-35G.375 


365 


P. "ACE" 


370 


RET. 


375 


P. u JOKER!" 


380 


F.X=lTO470:N.X:G=RND(30)+3 


385 


F.X=1TOG:Z=RND(1047) 


390 


P.ATZ,"HA! "; 


395 


F.Y^1T075:N.Y:N.X:RET. 


400 


IFQ=11P."JACK" 


405 


IFQ=12P."QUEEN" 


410 


IFQ=13P."KING" 


415 


RET. 


420 


P. ''PLEASE DO NOT CHEAT, "; 


425 


IFC=1P.A$ 


430 


IFC=2P.B$ 


435 


G.300 


450 


F.X=1T013 


455 


Y=RND(54) 


460 


IFA(Y)=0G.470 


465 


G.455 


470 


A(Y)=X 


475 


N.X 


480 


RET. 



Sample Run (Excerpt) 

STACK CUT 
NAME OF PLAYER #1? RALPH 
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NAME OF PLAYER #2? POTSIE 

TURN#1 

SCORE TO DATE 

RALPH POTSIE 



RALPH, YOUR CUT? 5 

CARD #6 

YOU DREW— QUEEN 

TURN#1 

SCORE TO DATE 

RALPH POTSIE 

12 

POTSIE, YOUR CUT? 10 

CARD #16 

YOU DREW -3 

TURN #2 

SCORE TO DATE 

RALPH POTSIE 

12 3 

RALPH, YOUR CUT? 3 

CARD #19 

YOU DREW —5 

TURN #2 

SCORE TO DATE 

RALPH POTSIE 

17 3 

POTSIE, YOUR CUT? 54 

PLEASE DO NOT CHEAT, POTSIE 

YOUR CUT? 8 

CARD #27 

YOU DREW — 6 

TURN #3 

SCORE TO DATE 

RALPH POTSIE 

17 9 

RALPH, YOUR CUT? 5 

CARD #32 

YOU DREW— JOKER! 

HA! HA! HA! 

HA! HA! HA! 

HA! 
HA! HA! 

TURN #3 
SCORE TO DATE 
RALPH POTSIE 
-18 9 
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POTSIE,YOURCUT?10 

CARD #42 

YOU DREW -ACE 

TURN #4 

SCORE TO DATE 

RALPH POTSIE 

-18 10 

TURN #35 
SCORE TO DATE 
RALPH POTSIE 
212 203 

POTSIE, YOUR CUT? 4 
CARD #6 

YOU DREW— QUEEN 
GAME IS OVER 
FINAL SCORE 
RALPH POTSIE 
212 215 

POTSIE WINS! 

Variables Used 

A$ PLAYER #1 

B.$ PLAYER #2 

A A$'S SCORE 

B B$'S SCORE 

C TURN SELECT 

D CUT CHOICE 

F CARD# 

G "HA!" COUNT 

Q TOP CARD VALUE 

S TURN COUNT 

T TURN COUNT 

X TIMING & MISC. 

Y TIMING & MISC. 

Z "HA!" LOCATION 
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Chapter 3 
Frustration 
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This game merits a chapter all to itself since it has four versions. 

The object of Frustration is to move your marker through the 
hundred-space grid from the first space to the hundredth. Each 
space has a concealed value, usually from -10 to +10 points, but 
some are booby traps that send you back to the starting position 
(that's the frustrating part). There is also one bomb, and if you hit it 
the game ends immediately. 

Since you want to reach the end position with as high a score a 
possible, you might want to delibrately land on a booby trap to pick 
up more points. But the computer also keeps track of how many 
moves you take. Develop your own par for reaching the end, in as 
few moves possible, with the highest score. 

The two-player version repeats the main game program 
(which is a solitaire version), so that you can match your skill and 
luck against your opponent. Player number 2 moves from the 
hundredth space to the first, otherwise the rules are the same as 
the one-player version— with one addition. If you land on a space 
already occupied by your opponent, he must return to his starting 
position. 

The third version of Frustration has the computer taking the 
part of your opponent. It is programmed not to cheat: in deciding its 
moves it only knows what's under a space if that space has already 
been played. But once it learns what's at a space, you can be sure it 
doesn't forget! 

The fourth version is a sort of ultimate. Again a two-player 
game is played, but this time the computer plays both sides: you 
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just sit back and watch. If the other versions of the game get too 
frustrating, it can help to watch the computer have as much trouble 
with it as you do. 

As frustrating as this game is, it appears to be addictive. Fve 
tried it on several people, and once started they can't seem to leave 
it alone. 

In all versions each move is from 1 to 6 spaces. 

No sample run is given for the last two versions, because 
they'd look essentially like the two-player version, for which a 
sample run is given. See Fig. 3-1 for the flowchart. 



RUN 



SET UP BOARD 



DRAW GRID 



BLANK SPACE 




END 



RETURN MARKER 
TO START 



ADJUST SCORE 



Fig. 3-1 . Frustration Flowchart. 
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Main Game Program 



Standard BASIC 

5 FORX=lTO100 

7 PRINT 

10 LETA(X)=0 

12 NEXTX 

15 PRINT" ","FRUSTRATION!":PRINT:PRINT 

17 REM* PLANT POINTS* 

20 FORX=lTO50 

22 LETY=INT(RND(0)*98)+2 

24 LETZ=INT(RND(0)*21)-10 

26 LETA(Y)=Z:NEXTX 

28 REM* PLANT BOOBY TRAPS* 

30 F0RX=1T013 

32 LETY=INT(RND(0)*90)-4 

34 LETA(Y)=-50:N.X 

36 REM* PLANT BOMB* 

38 LETY=INT(RND(0)*80)+11 

40 LETA(Y)=-100:LETA(1)=100 

42 LETP=1:LETN=0 

44 LETQ=0:LETS=0 

45 GOSUB200 

47 REM* THE PLAY* 

50 LETS=S+1 

52 PRINT:PRINT'MOVE#";S,"YOURSCOREIS";Q 

54 PRINT'TOURMOVE"; 

56 INPUT M 

58 LETM=INT(M) 

60 IFM<1 THEN GOTO 240 

65 IF M>6 THEN GOTO 240 

70 LETA(P)=N:LETR=P+M 

72 LETN=A(R) 

74 PRINT'YOU JUST FOUND"; 

76 F0RX=1T0333 

78 NEXTX 

80 IF N=0 THEN GOTO 235 

85 IF N<- 10 THEN GOTO 245 

90 PRINTN;"POINTS!" 

95 REM * ADJUST SCORE & POSITION * 

97 LETQ=Q+N 

100 LETP=R 

102 LETA(P)=100 

105 F0RX=1T0555:NEXTX 

107 REM* TEST FOR WIN* 
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110 IF P>99 THEN GOTO 120 

115 GOTO 45 

120 REM* END GAME* 

125 GOSUB200 

130 PRINT'YOU MADE IT IN "; S; " MOVES!" 

135 F0RX=1T0333:NEXTX 

140 PRINT" AND WITH A SCORE OF "; Q 

145 IFQ<10THEN PRINT "THAT STINKS!" 

150 IF Q>50 THEN PRINT "FANTASTIC!" 

155 END 

200 REM* DRAW GRID* 

202 LETJ=0 

205 FORX=lTO10 

206 PRINT"", 

208 FORY=lTOl0 

210 LETJ=J+1 

212 IFA(J)=100THENGOTO230 

215 PRINT "X"; 

220 NEXTY 

222 PRINT 

224 NEXTX 

226 PRINT:PRINT 

228 RETURN 

230 PRINT "O"; 

232 GOTO 220 

235 PRINT "ABSOLUTELY NOTHING" 

237 GOTO 100 

240 PRINT'INVALIDMOVE" 

242 GOTO 54 

245 IF N=- 100 THEN GOTO 260 

247 PRINT'ABOOBYTRAP!" 

250 LETN=0 

252 LETP=1 

254 LETA(P)=100 

256 GOTO 105 

260 PRINTTHEBOMB" 

265 FORX=lTO470:NEXTX 

270 FORX=lT04:PRINT:NEXTX 

275 PRINT" ","**** BOOM!! ****" 

280 FORX=lT04:PRINT:NEXTX 

285 END 

TRS-80 BASIC 

5 CLS:P.:P.:P.:F.X=lTO100:A(X)=0:N.X 
15 P."","FRUSTRATION!":P.:P. 
20 F.X=lTO50:Y=RND(98)+l:A(Y)=RND(21)- 11:N.X 
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25 


F.X=lTOl3:Y=RND(90)+5:A(Y)=~50:N.X 


30 


Y=RND(80)+10: A(Y)=- 100 


40 


A(1)=100:P=1:N=0:Q=0:S=0 


45 


GOS.200 


50 


S=S+1:P.:P. "MOVE #";S, "YOUR SCORE IS";Q 


55 


IN. "YOUR MOVE"; M:IF M< 1 G.240 


60 


IFM>6B.240 


65 


M=INT(M):A(P)=N:R=P+M:N=A(R) 


70 


P. "YOU JUST FOUND"; 


75 


F.X=1T0333:N.X:IFN=OG.235 


80 


IFN<-10G.245 


90 


P.N;" POINTS!" 


95 


Q=Q+N 


100 


P=R:A(P)=100 


105 


F.X=1T0555:N.X 


110 


IFP>99G.120 


115 


G.45 


120 


GOS.200:P."YOUMADEITIN";S;"MOVES!" 


122 


F.X=1T0333:N.X 


125 


P. "AND WITH A SCORE OF "; Q 


130 


IF Q<10 P. "THAT STINKS!" 


135 


IFQ>50P,"FANTASTIC!" 


140 


END 


200 


J=0:F.X=lTO10:P. M " 


205 


F.Y=lTO10:J=J+l 


210 


IFAG)=100G.230 


215 


R"X"; 


220 


N.Y:P.:N.X:P.:RET. 


230 


P."O";:G.220 


235 


P."ABSOLUTELYNOTHING!":G.100 


240 


P. "INVALID MOVE": G. 55 


245 


IFN=-100G.260 


250 


P."ABOOBYTRAP!" 


255 


N=0:P=1:A(P)=100:G.105 


260 


P. "THE BOMB":F.X=lTO470:N.X 


265 


P.:P.:P.:P.:P." ","**** BOOM!!****" 


270 


P.:P.:P.:P. 


275 


END 



Summary of Variables Used 

J GRID POSITION 

M MOVE 

N VALUE OF OCCUPIED SPACE 

P POSITION 

Q SCORE 

R NEW POSITION 
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S MOVE# 
X TIMING 
Y VARIOUS 

Sample Run (Excerpt) 

FRUSTRATION 
OXXXXXXXXX 
XXXXXXXXXX 

xxxxxxxxxx 

XXXXXXXXXX 

xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 

MOVE#l YOUR SCORE ISO 

YOUR MOVE? 6 

YOU JUST FOUND - 10 POINTS! 

XXXXXXOXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 

xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 

MOVE #2 YOUR SCORE IS -10 

YOUR MOVE? 6 

YOU JUST FOUND 2 POINTS! 

xxxxxxxxxx 
xxoxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 

MOVE #3 YOUR SCORE IS -& 

YOUR MOVE? 6 

YOU JUST FOUND A BOOBY TRAP 
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oxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 
xxxxxxxxxx 

MOVE #4 YOUR SCORE IS -8 

YOUR MOVE? 
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Two Man Frustration 

Standard BASIC 



ENTER THE MAIN GAME PROGRAM, THEN ADD 


THE FOLLOWING STEPS: 


16 


PRINT"PLAYER#1"; 


18 


INPUT A$ 


27 


PRINTTLAYER#2"; 


29 


INPUT B$ 


35 


GOSUB500 


52 


PRINT:PRINTA$;"MOVE #";S,"YOUR SCORE IS ";Q 


82 


IF N=200 THEN GOTO 290 


110 


IF P>99 THEN GOTO 400 


115 


GOTO 300 


155 


RETURN 


213 


IF A(J)=200THEN GOTO490 


290 


LET A(C)=B: LET A(100) =200 


292 


LETC=100:LETB=0 


294 


LETN=0 


296 


PRINT B$ 


298 


GOTO 100 


300 


GOSUB200 


305 


PRINTrPRINT B$;" MOVE #";S,"YOUR SCORE IS "; A 


310 


PRINT" YOUR MOVE"; 


312 


INPUT M 


315 


IF M<1 THEN GOTO 460 


320 


IF M>6 THEN GOTO 460 


325 


LETA(C)=B:LETR=C-M 


330 


LETB=A(R) 


333 


PRINT 4 YOU JUST FOUND "; 


335 


FOR X=l TO 333: NEXT X 


340 


IF B=0 THEN GOTO 440 


345 


IF B<~ 10 THEN GOTO 445 


350 


IF B=100 THEN GOTO 465 


355 


PRINT B;" POINTS!" 


360 


LETA=A+B 


365 


LETC=R:LETA(C)=200 


370 


F0RX=1T0555:NEXTX 


375 


IF C<2 THEN GOTO 405 


380 


GOTO 45 


400 


PRINT A$ 


402 


GOTO 410 


405 


PRINT B$ 


410 


PRINT" MADE IT IN ";S;" MOVES" 


412 


GOSUB200 
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415 PmNT:PRINT"","FINALSCORE" 

420 PRINT A$,Q 

422 GOSUB145 

425 PRINT:Q=A 

430 PRINT B$,Q 

432 GOSUB145 

435 END 

440 PRINT'ABSOLUTELY NOTHING" 

442 GOTO 365 

445 IF B=~ 100 THEN GOTO 260 

450 PRINT'A BOOBY TRAP!" 

452 LETB=0:LETC=100 

454 LETA(C)=200 

457 GOTO 370 

460 PRINT'INVALIDMOVE" 

462 GOTO 310 

465 LETA(P)=N:LETA(1)=100 

470 LETN=0:LETB=0 

475 LETP=1 

480 PRINT A$ 

485 GOTO 365 

490 PRINT'8"; 

495 GOTO 220 

500 LETA=0:LETB=0 

505 LETC=100 

510 LETA(100)=200 

515 PRINT 

520 RETURN 

STEPS 120 to 125 are not used in this 
version and may be eliminated. 

IRS 30 BASIC 

ENTER THE MAIN GAME PROGRAM THEN ADD THE 
FOLLOWING STEPS: 

22 IN. "PLAYER #1";A$ 

27 IN. "PLAYER #2 ";B$ 

42 A=0:B=0:C=100;A(100)=200:P. 

50 S=S+l:P.:P.A$;"MOVE#";S,"YOURSCOREIS";Q 

85 IFN=200G.290 

110 IFP>99G.400 

115 G.300 

140 RET. 

212 IFA(D=200G.285 

285 P."8";:G.220 

290 A(C)=B:A(100)=200:C=100:B=0:N=0 
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295 RB$:G.100 

300 GOS.200 

305 P.:RBrMOVE#";S, M YOURSCOREIS";A 

310 IN."YOURMOVE";M 

315 IFM<1G.460 

320 IFM>6G.460 

325 A(C)=B:R=C-M:B=A(R) 

330 P/'YOU JUST FOUND"; 

335 F.X=1T0333:N.X 

340 IFB=0G.440 

345 IFB<-10G.445 

350 IFB=100G.465 

355 RG;" POINTS!" 

360 A=A+B 

365 C=R;A(C)=200 

370 F.X=1T0555:N.X 

375 IFC<2G.405 

380 G.45 

400 RA$;:G.410 

405 RB$; 

410 P. "MADE IT IN "; S; " MOVES": GOS. 200 

415 R:R"","FINALSCORE" 

420 RA$,Q:GOS.130 

425 R:Q=A 

430 RB$,Q:GOS.130 

435 END 

440 R"ABSOLUTELYNOTHING":G.365 

445 IFB=-100G.260 

450 R"ABOOBYTRAP!" 

455 B=0:C=100:A(C)=200:G.370 

460 P. "INVALID MOVE": G. 310 

465 A(P)=N:A(1)=100:N=0:P=1:B=0 

470 RA$:G.365 

Steps 120 & 125 of the Main Game Program are 
bypassed in this version, and may be eliminated. 

Summary of Variables Used 

A$ PLAYER #1 

B$ PLAYER #2 

A B$'S SCORE 

B VALUE OF B$'S SPACE 

C B$'A POSITION 

J GRID POSITION 

M MOVE 

N VALUE OF A$'S SPACE 
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p 


A$'SPOSITIC 


Q 


A$'S SCORE 


R 


NEW SPACE 


S 


MOVE* 


Y 


TIMING 


Y 


VARIOUS 



Two-Player Version Sample Run (Excerpt) 

FRUSTRATION 
PLAYER #1? HOMER 
PLAYER #2? JETHRO 

OXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 
XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXX8 

HOMER MOVE #1 YOUR SCORE ISO 

YOUR MOVE? 5 

YOU JUST FOUND 3 POINTS! 

XXXXXOXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXX8 

JETHRO MOVE #1 YOUR SCORE IS 

YOUR MOVE? 6 

YOU JUST FOUND - 5 POINTS! 

XXXXXOXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
XXXXXXXXXX 
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xxxxxxxxxx 

XXX8XXXXXX 
HOMER MOVE #2 YOUR SCORE IS 3 

YOUR MOVE? 4 
YOU JUST FOUND ABSOLUTELY NOTHING 

XXXXXXXXXO 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXX8XXXXXX 
JETHROMOVE#2 YOUR SCORE IS - 5 

YOUR MOVE? 6 
YOU JUST FOUND 5 POINTS! 

XXXXXXXXXO 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXXXXX 

XXXXXXX8XX 

XXXXXXXXXX 
HOMER MOVE #3 YOUR SCORE IS 3 
YOUR MOVE? 
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Frustration vs. The Computer 



TRS-80 BASIC 


ENTER MAIN PROGRAM, THEN ADD THE FOLLOWING: 


35 


A=0:B=0:C=100:A(100)=200 


42 


FORX=10lTO200:A(X)=0:N.X 


85 


IFN=200G.290 


110 


IFP>99G.405 


115 


G.300 




ELIMINATE STEPS 120 TO 140 


212 


IFA(J)=200G.285 


285 


P."8";:G.220 


290 


A(C)=B:A(100)=100:B=0:N==0 


295 


P. "ME": G. 100 


300 


P. "I'LL MOVE"; 


305 


E=C-6:F=0:G=E+100:D=C-1:U=E+100:V=D+100 


310 


FORX=UTOV 


312 


IFA(X)>FGOS.460 


315 


N.X:G=G-100:H=C-G:P.H 


320 


F.X=1T0555:N.X 


330 


P.:P."IJUST FOUND"; 


335 


A(C)=B:B=A(G):A(G+100)=B 


340 


IFB=100G.390 


345 


IFB=0G.385 


350 


IFB<-10G.450 


355 


P. B; u POINTS!" 


360 


A=A+B 


365 


C=G:A(C)=200 


370 


F0RX=1T0555:N.X 


375 


IFC<2G.410 


380 


G.45 


385 


P. "ABSOLUTELY NOTHING. ": G.365 


390 


A(P)=N:A(1)=100:P=1:N=0:B=0:P."YOU":G.365 


395 


P."ABOOBYTRAP!":A(100)=200:B=0 


400 


C=100:G.370 


405 


P."YOU";:G.415 


410 


P."I"; 


415 


P. "MADE IT IN ";S;"MOVES" 


420 


GOS.200 


425 


P.:P."", "FINAL SCORE":P. 


430 


P."YOU",Q 


435 


P. "ME", A 


440 


END 


450 


IFB=-100G.260 
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455 G.395 

460 F=A(X):G=X:RET. 

Standard BASIC 

ENTER THE MAIN GAME PROGRAM THEN ADD 
THE FOLLOWING STEPS: 

43 GOSUB470 

82 IF N=200 THEN GOTO 290 

110 IF P>99 THEN GOTO 405 

115 GOTO 300 

ELIMINATE STEPS 120 TO 155 

213 IFAO)=200 THEN GOTO 490 

290 LETA(C)=B:LETA(100)=200 

292 LETC=100:LETB=0:LETN=0 

294 PRINT'ME" 

296 GOTO 100 

300 PRINTTLLMOVE"; 

302 LETE=C-6:LETF=0 

304 LETG=E+100:LETD=C-1 

306 LETU=E+100:LETV=D+100 

308 FORX=UTOV 

310 IFA(X)>FTHENGOSUB445 

315 NEXTX 

317 LETG=G-100:LETH=C-G 

320 PRINT H 

322 F0RX=1T0555:NEXTX 

325 PRJNT:PRINT'IJUST FOUND"; 

330 LETA(C)=B:LETB=A(G) 

335 LETX=G+100:LETA(X)=B 

340 IF B=100 THEN GOTO 390 

345 IF B=0 THEN GOTO 385 

350 IF B<- 10 THEN GOTO 450 

355 PRINT B;" POINTS!" 

360 LETA=A+B 

365 LETC=G:LETA(C)=200 

370 F0RX=1T0555:NEXTX 

375 IF C<° THEN GOTO 410 

380 GOTO 45 

385 PRINTABSOLUTELYNOTHING." 

387 GOTO 365 

390 LETA(P)=N:LETA(1)=100 

392 LETP=1:LETN=0:LETB=0 

394 PRINT "YOU": GOTO 365 

395 PRINT'A BOOBY TRAP!" 

400 LETA(100)=200:LETB=0:LETC=100 

402 GOTO 370 
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405 


PRINT'YOU"; 


407 


GOTO 415 


410 


PRINT'I"; 


415 


PRINT'MADE ITIN";S;" MOVES" 


420 


GOSUB200 


425 


PPJNT:PRINT' ",'TINALSCORE" 


430 


PPJNT:PRINT'YOU",Q 


435 


PRINT'ME",A 


440 


END 


450 


IF B=- 100 THEN GOTO 260 


455 


GOTO 395 


460 


LETF=A(X):LETG=X 


465 


RETURN 


470 


LETA=0:LETB=0 


475 


LETC=100:LETA(100)=200 


480 


FORX=101TO200 


482 


LETA(X)=0 


484 


NEXTX 


486 


RETURN 


490 


PRINT"8"; 


495 


GOTO 220 
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The Computer vs. Itself 



Standard BASIC 


5 


PRINT: PRINT'", "FRUSTRATION! " 


7 


REM* SET UP BOARD* 


10 


FORX=lTO300 


12 


LETA(X)=0 


14 


NEXTX 


16 


FORX=1T050 


18 


LET Y=INT(RND(0)*98)+2 


20 


LET A(Y)=INT(RND(0)*21)- 10 


22 


NEXTX 


24 


F0RX=1T013 


26 


LET Y=INT(RND(0)*90)+6 


28 


LETA(Y)=-50 


30 


NEXTX 


32 


LETA(1)=100:LETP=1 


34 


LETN=0:LETQ=0:LETS=0 


36 


LETA=0:LETB=0 


38 


LET C=100: LET A(C)=200 


40 


REM* THE PLAY* 


42 


GOSUB265 


44 


LETS=S+1 


46 


PRINT'MOVE # ";S,"PLAYER 1 MOVES"; 


50 


LETE=P+6:LETF=0 


52 


LETG=E+100:LETD=P+1 


54 


LETU=D+100:LETV=G 


56 


FORX=UTOV 


58 


IF A(X)>F THEN GOSUB 200 


60 


NEXTX 


62 


LET G=G- 100: LET M=G- P 


64 


PRINT M 


66 


F0RX=1T0555:NEXTX 


70 


PRINT'I JUST FOUND"; 


75 


LET A(P)=N: LET N=A(G) 


80 


LETX=G+100:LETA(G)=N 


85 


IF N=200 THEN GOTO 205 


90 


IF N=- 50 THEN GOTO 225 


95 


PRINT N;" POINTS!" 


100 


LETQ=Q+N 


105 


LETP=G:LETA(P)=100 


110 


FORX=lTO470:NEXTX 


115 


IF P>99 THEN GOTO 235 


120 


GOSUB 265 
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122 PRINT'PLAYER 2 MOVES"; 

124 LETE=C-6:LETF=0 

126 LETG=E+200:LETD=C-1 

128 LETU=E+200:LETV=D+200 

130 FORX=UTOV 

135 IFA(X)>FTHENGOSUB200 

140 NEXTX 

142 LETG=G-200:LETM=C-G 

144 PRINT M 

146 F0RX=1T0555:NEXTX 

148 PRINT "I JUST FOUND"; 

150 LETA(C)=B 

155 LETB=A(G) 

160 IF B=100 THEN GOTO 215 

165 IFB=-50THENGOTO230 

170 PRINT B;" POINTS!" 

175 LETA=A+B 

180 LETC=G 

182 LETA(C)=200 

185 FORX=lTO470:NEXTX 

190 IF C<2 THEN GOTO 240 

195 GOTO 40 

200 LETF=A(X):LETG=X 

202 RETURN 

205 PRINT'PLAYER 2! HA! HA!" 

207 LETA(C)=B:LETB=0 

210 LETC=100:LETN=0 

212 LETA(C)=200:GOTO105 

215 PRINT'PLAYER l! YUK! YUK!" 

217 LETA(P)=N:LETN=0 

220 LETB=0:LETP=1:LETA(P)=100 

222 GOTO 180 

225 LETP=:LETA(P)=100:LETN=0 

227 PRINT'ABOOBYTRAP!":GOTO110 

230 LETC=100:LETA(C)=200:LETB=0 

232 PRINTABOOBYTRAP!":GOT0185 

235 PRINT'PLAYER 1"; 

237 GOTO 245 

240 PRINT'PLAYER 2"; 

245 PRINT'MADEITIN";S;"MOVES" 

247 GOSUB265 

250 PRINT"FINALSCORE","PLAYERl","PLAYER2" 

255 PRINT" ",Q,A 

260 END 

265 LETJ=0 

270 FORX=1T010 
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275 PRINT*", 

280 FORY=lTO10 

285 LETJ=J+1 

290 IFA(J)=100THENPRINTO"; 

295 IF A(J)=200 THEN PRINTS"; 

300 IF A(J)< 100 THEN PRINTS"; 

305 NEXT Y: PRINT 

310 NEXT X: PRINT 

315 RETURN 

TRS-80 BASIC 

5 P.:P." "."FRUSTRATION!" 

10 F.X=TO300:A(X)=0:N.X 

15 F.X.=1T050:Y=RND(98)+1:A(Y)=RND(21)»11:N.X 

20 P.X=1T013:Y=RND(90H5:A(Y)=-50:N.X 

30 A(1)=100:P=1:N=0:Q=0:S=0:A=0:B=0:C=100:A(100)=200 

40 GOS.265:S=S+l:P."MOVE #";S,"PLAYER 1 MOVES"; 

50 E=P+6:F=0:G=E-MOO:D=P+1:U=D+100:V=E+100:F.X= 
UTOV 

55 IFA(X)>FGOS.200 

60 N.X:G=G~100:M=G-P:P.M 

65 F.X=1T0555:N.X 

70 P. "I JUST FOUND"; 

75 A(P)=N:N=A(G):A(G+100)=N 

80 IFN=200G.205 

85 IFN=-50G.225 

90 P.N;" POINTS!" 

100 Q=Q+N 

105 P=G:A(P)=100 

110 F.X=lTO470:N.X 

115 IFP>99G.235 

120 GOS.265:P/TLAYER2MOVES"; 

125 E=C-6:F=0:G=E+200:D=C-1:U=E+200:V=D+200:F.X= 

UTOV 

130 IFA(X)>FGOS.200 

140 N.X:G=G-200:M=C~G:P.M 

145 F.X=1T0555:N.X:P."I JUST FOUND"; 

150 A(C)=B:B=A(G) 

160 IFB=100GOTO2l5 

165 IFB=-50G.230 

170 P.B;"POINTS!":A=A+B 

180 C=G:A(C)=200 

185 F.X=1T0470:N.X 

190 IFC<2G.240 

195 G.40 

200 F=A(X):G=X:RET. 

205 P. "PLAYER 2! HA! HA!":A(C)=B:B=0:N=0 
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210 C=100:A(C)=200:G.105 

215 P. "PLAYER 1! YUK! YUK!":A(P)=N:N=0:B=0 

220 P=1:A(P)=100:G.180 

225 P=:A(P)=100:N=0:P."A BOOBYTRAP!":G.110 

230 C=100:A(C)=200:B=0:P."ABOOBYTRAP!":G.185 

235 P."PLAYER1";:G.245 

240 P."PLAYER2"; 

245 P."MADEITIN";S;"MOVES":GOS.265 

250 P."FINALSC0RE","PLAYER1","PLAYER2" 

255 P."",Q,A:END 

265 J=0:F.X=lTO10:P." ,:F.Y=lTOl0:J=J+l 

270 IFA(D=100P. "0"; 

275 IFA0)=200P."8"; 

280 IFAQ)< 100P."X"; 

285 N.Y:P.:N.X:P.:RET. 

Summary of Variables Used 

A PLAYER #2"S SCORE (Le., THE COMPUTER) 

B VALUE OF 2's SPACE 

C 2's POSITION 

D MOVE CHOICE 

E MOVE CHOICE 

F MOVE CHOICE 

G MOVE CHOICE 

J GRID POSITION 

M MOVE 

N VALUE OF PLAYER #1'S SPACE 

P l'S POSITION 

Q l'S SCORE 

R NEW POSITION 

S MOVE# 

X TIMING 

Y VARIOUS 
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Chapter 4 
Non-Games 



The programs in this chapter aren't really games at all. One is a 
random probability demonstration, two are gag programs, and one 
is a random music composer (it just writes the music, it doesn't play 
it.) 
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Coin Flipper 



A glance at the listing of this program should tell you that it's a 
simple one. There are only 25 steps. 

Step 10 simply clears the screen and prints the title. Step 15 
asks how many times you want the computer to flip the coin: this 
number is called X and should be a positive integer. After all, how 
can a coin be flipped -5.7 times? If a negative number or zero is 
entered, the program will bomb. 

If you like, you can block such an invalid entry by adding the 
following steps: 

17 X=INT(X) 

18 IFX<1G0T015 

Step 20 tests the value of X. If X = 1 the program jumps, to 
step 115. C is randomly set to equal 1 (Heads) or 2 (Tails). The 
result is printed and the program cycles back to step 15 to start 
over. 

If step 20 finds X to be greater than 1, the program continues 
through step 25 which sets variables H (number of Heads) and T 
(Number of Tails) to zero. These variables are increased by one 
count each time the appropriate face comes up. Y is counted up to 
the value of X for the loop program (steps 30 to 55). On each pass 
through the loop C is randomly set to either 1 or 2. A 1 is counted as 
Heads (steps 45 and 50), while a 2 is counted as Tails (100 through 
110). 

After X loops, the total number of Heads and Tails are printed 
along with their percentages of the total of flips. If X is areasonably 
large number, each should be close to 50 %. 

The percentage of Heads (A) and of Tails (B) are added (D). If 
the total does not equal 100%, an error message is printed and the 
computer stops. This can happen in certain cases because of 
internal rounding off of extreme decimal places within the compu- 
ter. If D equals 100%, the program cycles back to step 15 to start 
over. 

If you don't want to bother with the 100% check (the difference 
should never be more than a very minute fraction anyway), you can 
eliminate steps 85, 90 and 95, and replace them with 

90 GOTO 15 

When you want to terminate the program, just hit the BREAK 
key. 

See Fig. 4-1 for the flowchart. 
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Fig. 4-1 . Coin Flipper! lowchart. 



PRINT HEADS 




Standard BASIC 

10 CLS:PRINT" ", "COIN FLIPPER 

15 PRINT"HOWMANYTIMESSHALLIFLIPTHATOLD COIN"; 

20 INPUT X 

25 IFX=1 GOTO 115 

30 LETH = 0:LETT=0 

33 PRINT:PRINT:FORY=lTOX 

40 LETC=INT(RND(1)*2)+1 

45 IF C=2 GOTO 100 

50 LETH=H+1:PRINT"H"; 

55 NEXTY:PRINT:PRINT 

60 PRINT ""."TOTALS" 

65 LET A=(H/X)*100:LET B=(T/X)*100:LET D=A+B 

70 PRINT"HEADS",H,A;"%" 

75 PRINTTAILS",T,B;"%" 

80 PRINT" ","",D;"%" 

85 IFD=100GOTO15 

90 PRINT'I THINK I GOOFED" 

95 END 
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100 PRINTT"; 

105 LETT=T+1 

110 GOTO 55 

115 LETC=INT(RND(1)*2)+1 

120 IFC=1PRINT*HEADS" 

125 IF C=2 PRINT "TAILS" 

130 GOTO 15 

TRS-80 BASIC 

10 CLS:P.:" ", "COIN FLIPPER" 

15 IN. "HOW MANY TIMES SHALL I FLIP THAT OLD COIN"; X 

20 IFX=1G.115 

25 H=0:T=0:P.:P.:F.Y=1TOX:C=RND(2) 

30 IFC=2G.100 

40 H=H+1:P."H W ; 

50 N.Y: P.: P.: P. ""/TOTALS" 

60 A=(H/XH00:B=(T/X)*100:D=A+B 

70 P.' t HEADS",H 1 A;"%":P/TAILS",T,B; tt %" 

80 P."","",D;"%" 

85 IFD=100G.15 

90 P. "I THINK I GOOFED.": END 

100 T=T+1:P/T"; 

~ 110 G.50 

115 C=RND(2):IFC=1P."HEADS" 

120 IFC=2P/TAILS" 

130 G.15 
Summary Of Variables Used 

A % of Heads 

B % of Tails 

C Result of current flip 

D A+B (should be 100) 

H Number of Heads 

T Number of Tails 

X Number of flips 

Y Loop count 
Sample Run 

COIN FLIPPER 
HOW MANY TIMES SHALL I FLIP THAT OLD COIN? 1 
HEADS 
HOW MANY TIMES SHALL I FLIP THAT OLD COIN? 25 

HTTHTHHTTTHTHTTH 
THTTTHTHH 

TOTALS 
HEADS 11 44% 
TAILS 14 56% 

100% 
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Favorite Song 
Surprise Poem 



These two programs are simply computerized gags. Try 
entering them without thinking about what they'll do. Then you can 
spring them on your friends. 

Since there is no randomness in these programs, it would spoil 
the joke to include sample runs here. 

Once you've run these programs a couple times you should be 
able to work up similar gag programs of your own. 

Favorite Song Standard BASIC 

5 LETY=1:LETN=0:PRINT:PRINT:PRINT:PRINT 

10 PRINT: PRINT: "WOULD YOU LIKE ME TO DO MY FAVORITE 
SONG"; 

12 INPUT X 

15 IF X=Y THEN GOTO 100 

20 LETA=INT(RND(0)*300)+1 

22 FORB=lTOA 

24 LETC=INT(RND(0)*300)+1 

26 FORD=lTOC:NEXTD 

28 PRINT" FINK!"; 

30 LETE=INT(RND(0)*20)+1 

35 FORF=lTOE:PRINT""; 

40 NEXT F: NEXT B 

45 END 

70 IF X=l THEN PRINT'ONE BOTTLE"; 

75 IFX>1 THEN PRINT X;" BOTTLES"; 

80 RETURN 

85 PRINT'OFBEER"; 

90 RETURN 

100 FORA=lTO30:PRINT:NEXTA 

102 PRINT" ","OOOHHH...":PRINT:PRINT:PRINT 

105 PRINT:FORA=lTO400:NEXTA 

107 LET X =: 99 

110 FORA=lTO20:PRINT:NEXTA 

112 F0RA=1T0333:NEXTA 

114 GOSUB70 

116 GOSUB85 

118 GOSUB190 

120 PRINT:FORA=lTO270:NEXTA 

122 GOSUB70 

124 GOSUB85 
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126 PRINT 

128 PRINT 

130 FORA=lTO300:NEXTA 

132 PRINT'IF ONE OF THOSE BOTTLES SHOULD HAPPEN TO 
FALL" 

134 PRINT:FORA=1T0250:NEXTA 
136 LETX=X-1 

138 IFX=0THENGOTO2Q0 

140 GOSUB70 

142 GOSUB85 

144 GOSUB190 

146 F0RA=1T0777:NEXTA 

150 PRINT:PRINT:PRINT 

155 PRINT:PRINT:PRINT 

160 GOTO 112 

190 PRINT'ONTHEWALL" 

195 RETURN 

200 PPJNT'NO MORE BOTTLES"; 

205 GOSUB85 

210 GOSUB190 

215 F0RA=1T0999:NEXTA 

220 PRINT:PRINT:PRINT 

225 PRINT:PRINT:PRINT 

230 PRINT'WANTMETODOITAGAIN"; 

235 GOTO 12 

TRS-80 BASIC 

55 CLS:Y=1:N=0:P.:P.:P. 

10 IN."WOULD YOU LIKE ME TO DO MY FAVORITE SONG";x 

15 IFX=YG.100 

20 C=RND(300):F.D=1TOC:A=RND(300):F.B=1TOA 

25 N.B:P." FINK! ";:E=RND(20):F.B=1TOE:P." "; 

30 N.B:N.D:END 

70 IFX=1 P. "ONE BOTTLE"; 

75 IFX>1P.X;" BOTTLES"; 

80 RET. 

85 P."OFBEER";:RET. 

100 F.A=lTO30:P.:N.A:P."" > "OOOHHH...":P.:P.:P. 

105 F.A=lTO400:N.A:X=99 

110 CLS:P.:P.:P. 

115 F.A=lTO333:N.A:GOS.70:GOS.85:GOS.190:P. 

120 F.A=lTO270:N.A:GOS.70:GOS.85:P.:P. 

125 F.A=lTO300:N.A:P."IFONEOFTHOSEBOTTLES"; 

130 P."SHOULDHAPPENTOFALL":P.:F.A=lTO250 

135 N.A:X=X-1:IFX=0G.200 

140 GOS.70:GOS.85:GOS. 190:F. A=1T0777:N. A 
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145 


R:P.:P.:P.:P.:G.U5 


190 


P. "ON THE WALL': RET. 


200 


P. "NO MORE BOTTLES "; : GOS.85: GOS. ISO 


205 


F.A-1T0999:N.A:P.:P.:P.:P.:P. 


210 


IN. "WANT ME TO DO IT AGAIN";X 


215 


G.15 


Surp 


irise Poem Standard BASIC 


5 


FORX^lTO30 


10 


PRINT: NEXT X 


12 


GOSUB315 


14 


GOSUB225 


16 


GOSUB255 


17 


GOSUB 320 


18 


GOSUB 280 


19 


GOSUB 220 


20 


GOSUB 320 


21 


GOSUB 295 


22 


GOSUB 320 


24 


GOSUB 285 


26 


GOSUB 320 


28 


GOSUB 270 


30 


GOSUB 320 


32 


GOSUB 260 


34 


GOSUB 315 


36 


PRINT: PRINT 


38 


GOSUB 320 


40 


GOSUB 225 


42 


GOSUB 320 


44 


GOSUB 245 


50 


GOSUB 320 


52 


GOSUB 225 


54 


PRINT-N";: GOSUB 320 


56 


GOSUB 200 


58 


GOSUB 320 


60 


GOSUB 230 


62 


GOSUB 320 


64 


GOSUB 205 


66 


GOSUB 320 


68 


GOSUB 215 


70 


GOSUB 315 


72 


PRINT: PRINT 


74 


GOSUB 320 


16 


PRINT"",; GOSUB 225 


78 


GOSUB 320 


80 


GOSUB 250 


82 


GOSUB 320 
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84 GOSUB300 

86 GOSUB320 

87 GOSUB325 

88 GOSUB320 
90 GOSUB290 
92 GOSUB265 

94 PRINT" ":GOSUB 320 

96 PRINT: GOSUB 320 

98 GOSUB 320 

100 PRINT" ",:GOSUB 310 

102 GOSUB 320 

104 GOSUB 210 

108 GOSUB 240 

112 GOSUB 235 

114 GOSUB 320 

116 GOSUB 305 

120 GOSUB 265 

122 GOSUB 315 

124 PRINTrPRINT 

126 GOSUB 320 

128 GOSUB 225 

130 GOSUB 255 

131 GOSUB 320 

132 GOSUB 280 

133 GOSUB 220 

134 GOSUB 320 

135 GOSUB 295 

136 GOSUB 320 
138 GOSUB 285 
142 GOSUB 270 
144 GOSUB 320 
146 GOSUB 260 
148 GOSUB 315 
150 PRINT:PRINT 
152 GOSUB 320 

154 PRINT'",: GOSUB 300 

156 GOSUB 275 

158 GOSUB 320 

160 PRENT:PRINT"","", 

162 GOSUB 320 

164 GOSUB 300 

166 GOSUB 275 

168 PRINT"!": PRINT 

170 GOSUB 315 

172 GOSUB 315 

175 END 
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200 PRINT* A"; 

202 RETURN 

205 PRINTBEGE"; 

207 RETURN 

210 PRINT' BOW-"; 

212 RETURN 

215 PRINT* CAN";:RETURN 

220 PRINT'EYE";:RETURN 

225 PRINT' r;:RETURN 

230 PRINT' GAR";:RETURN 

235 PRINTGED";:RETURN 

240 PRINTLEG";:RETURN 

245 PRINT' LIVE";:RETURN 

250 PRINT' LOVE";:RETURN 

255 PRINT'M";:RETURN 

260 PRINT'MAN";:RETURN 

265 PRINT'MIN";:RETURN 

270 PRINTOR";:RETURN 

275 PRINT'OT";:RETURN 

280 PRINT* POP";:RETURN 

285 PRINT SAIL";:RETURN 

290 PRINT' SWIM'^RETURN 

295 PRINT' THE";: RETURN 

300 PRINT' TO";:RETURN 

305 PRINT' WT;:RETURN 

310 PRINT' WITH";:RETURN 

315 F0RX=1T0222 

317 NEXTX 

320 F0RX=1T055:NEXTX 

322 RETURN 

325 PRINT' GO";:RETURN 

TRS-80 BASIC 

5 CLS:P.:P.:P.:GOS.315 

10 GOS.225:GOS.255:GOS.320:GOS.280:GOS.220:GOS.320: 

GOS.295:GOS.320 

15 GOS.285:GOS.270:GOS.320:GOS.260 

20 GOS.315:P.:P.:GOS.320:GOS.225:GOS.320 

25 GOS.245:GOS.320:GOS.225 

30 P."N";:GOS.320:GOS.200:GOS.320:GOS.230 

35 GOS.205:GOS.320:GOS.215:GOS.315:P.:P.:GOS.320 

40 P." ",:GOS.225:GOS.320:GOS.250:GOS.320 

45 GOS.300:GOS.320:GOS.325:GOS.320:GOS.290:GOS.265 

50 P.'"";:GOS.320:P.:GOS.320:GOS.320 

55 P." ",:GOS.310:GOS.320:GOS.210 

60 GOS.240:GOS.235:GOS.320:GOS.305 
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65 


GOS.265: GOS.315:P. :P. :GOS.320 


70 


GOS.225:GOS.255:GOS.320:GOS.280:GOS.220: 




GOS. 320: GOS. 295: GOS.320 


75 


GOS. 285:GOS.270: GOS.320: GOS.260 


80 


GOS. 315:P.:P.:GOS.320:P." ",:GOS.300 


85 


GOS.275:GOS.320:P.:P." "," ", 


90 


GOS.320:GOS.300:GOS.275:P.*'!":P.:P. 


95 


GOS.315-.GOS.315 


100 


END 


200 


P."A";:RET. 


205 


P."BEGE";:RET. 


210 


P."BOW-";:RET. 


215 


P."CAN";:RET. 


220 


P."EYE";:RET 


225 


P."r;:RET. 


230 


P."GAR";:RET. 


235 


P."GED";:RET. 


240 


P."LEG";:RET. 


245 


P."LIVE";:RET. 


250 


P."LOVE";:RET. 


255 


P."'M";:RET. 


260 


P."MAN";:RET. 


265 


P."MIN";:RET. 


270 


P."OR";:RET. 


275 


P."OT";:RET. 


280 


P."POP";:RET. 


285 


P."SAIL";:RET. 


290 


P."SWIM";:RET. 


295 


P."THE";:RET. 


300 


P."TO";:RET. 


305 


P."WI";:RET. 


310 


P."WITH";:RET. 


315 


F.X=1T0222:N.X 


320 


F.X=1T055:N.X:RET. 


325 


P."GO";:RET. 
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Tunesmith 

This program is a very simple random music composer. It 
prints out notes by their letter names, gives the note lengths 
(V6,%,V6,etc.), and indicates the overall dynamic level of the 
phrase. You may manually convert this information into standard 
musical notation to play it on any instrument you choose. 

While the notes are randomly selected, the selection process 
is weighted (steps 10 to 45) so that the phrase will tend to stay in 
the key of C. 

In all probability many of the phrases produced by this simple 
program won't sound very musical, but many are interesting, and 
some sound quite good. 

While this program is too simplistic to be of much use as a real 
compositional aid, it might suggest themes to a composer with a 
reluctant muse. Tunesmith (like all of these programs) is mostly 
intended for fun. 

See Fig. 4-2 for the sample run in standard musical notation 
and Fig. 4-3 for the flowchart. 



Standard BASIC 

10 DATA1,0,1,2,13,8,6,1,3,4 

15 DATA1,0,5,6,7,1,8,10,13,6 

20 DATA 1,13,8, 12, 10, 11, 1,9, 13,3 

25 DATA 1,1,0, 13, 12,8,6,5, 1,0 

30 DATA 5, 13, 1,3,5, 13, 10,8,6,1 

35 FORX=lTO50 

37 READQ 

40 PRINT 




Fig. 4-2. Tunesmith sample run in standard musical notation . 
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Fig. 4-3. Tunesmith flowchart. 



— N 



s£T WEIGHTING DATA 



I 



SELECT DYNAMICS 



F OR x 1 TO 8 



SELECT NOTE 



SELECT TIME VALUE 



ADVANCE X 



YES 




INPUT \ NEXT LINE 

NEXT LINE I ** 

OR END J 



42 LETA(X)=Q 

45 NEXTX 

50 REM* DYNAMICS KEY* 

55 LETF=INT(RND(0)*7)+1 

60 IFF^THENPRINrPP" 

65 IFF=2THENPRINr t F 

70 IF F=3 THEN PRINT'MP" 

75 IF F=4 THEN PRINT W 

80 IFF=5THENPRINTMF" 

85 IFF=6THENPRINT'F" 

90 IFF=7THENPRINT'FF" 

95 PRINT 

100 FORX=lT08 

105 LETM=INT(RND(0)*50)+1 

110 LETQ=A(M) 

112 IFQ=0THENPRINT'REST"; 

115 IFQ=1THENPRINT"C "; 
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120 IFQ=2THENPRINT"C# "; 

125 IFQ=3THENPRINT"D 

130 IFQ=4THENPRINT"D# "; 

135 IFQ=5THENPRINT"E "; 

140 IFQ=6THENPRINr'F "; 

145 IFQ=7THENPRINT"F# "; 

150 IFQ=8THENPRINT'G "; 

155 IFQ=9THENPRINT"G# "; 

160 IFQ=10THENPRINr'A "; 

165 IFQ=11THENPRINT"A# "; 

170 IF Q=12 THEN PRINT "B "; 

175 IFQ=13THENPRINT'C "; 

180 IF Q=0 THEN GOTO 195 

185 LETB=INT(RND(0)*10)+1 

190 IF B>7 THEN PRINT"-"; 

195 NEXTX 

200 PRINTrPRINT 

202 F0RX=1T08 

205 LETT=INT(RND(0)*9)+1 

207 IFT=1THENPRINT1/16"; 

210 IFT=2THENPRINT"l/8 "; 

215 IF T=3 THEN PRINTS "; 

220 IFT^THENPRINT'Vi "; 

225 IF T=5 THEN PRINTS "; 

230 IF T=6 THEN PRINT" V2 "; 

235 IF T=7 THEN PRINTS "; 

240 IF T=8 THEN PRINTS "; 

245 IFT=9THENPRINT"1 "; 

250 NEXTX 

255 PRINT:PRINT 

260 PRINT'TYPE 1 FOR NEXT LINE OR 2 TO END" 

265 INPUT H 

270 IF H=l THEN GOTO 100 

275 END 

TRS-80 BASIC 

10 DATA 1,0, 1,2, 13,8,6, 1,3,4 

15 DATAl.0,5,6,7,1,8,10,13,6 

20 DATA 1,13,8, 12, 10, 11, 1,9, 13,3 

25 DATAl.1,0,13,12,8,6,5,1,0 

30 DATA 5, 13, 1,3,5, 13, 10,8,6,1 

35 F.X=lTO50:READQ 

40 A(X)=Q:N.X 

50 CLS:P.:P. 

55 F=RND(7):IFF=1P."PP" 

60 IFF=2P."P" 

65 IFF=3P."MP" 
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70 IFF=4P."MF" 

75 IFF=5P."MF' 

80 IFF=P."F" 

85 IFF=7P."FF" 

90 P. 

100 F.X=lTO8:M=RND(50) 

110 Q=A(M);IFQ=0P."REST"; 

115 IFQ=1P."C"; 

120 IFQ=2P."C#"; 

125 IFQ=3P."D"; 

130 IFQ=4P."D#"; 

135 IFQ=5P."E"; 

140 IFQ=6P."F"; 

145 IFQ=7P."F#"; 

150 IFQ=8P."G"; 

155 IFQ=9P."G#"; 

160 IFQ=10P."A"; 

165 IFQ=11P."A#"; 

170 IFQ=12P."B"; 

175 IFQ=13P."C"; 

180 IFQ=0G.195 

185 B=RND(10) 

190 IFB>7P."-"; 

195 NEXTX 

200 P.:P.:F.X=1T08 

205 T=RND(9):IFT=1P."1/16"; 

210 IFT=2P."y 8 "; 

215 IFT=3P."y4"; 

220 IFT=4P."%"; 

225 IFT=5P."&"; 

230 IFT=6P."&"; 

235 IFT=7P."y4"; 

240 IFT=8P."V2"; 

245 IFT=9P."1"; 

250 N.X:P.:P. 

255 IN."TYPE1F0RNEXTLINE0R2T0END";H 

260 IFH=1G.100 

265 END 

Sample Run 

MF 

CA-FFC-FCC 

ViViVi Vz 1/16 1/16 YsVi 

TYPE1FORNEXTLINEOR2TOEND ?1 

CC-GF#C'RESTEE 

y 2 % vfe y 4 y 2 i v 4 1/16 

TYPE 1 FOR NEXT LINE OR 2 TO END ?2 
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Chapter 5 
Helpful Programs 



This chapter includes four programs which are not exactly games. 
They are helpful programs, designed to be of use to you in many 
different ways. 
BINARY/DECIMAL 

You probably know that computers use a different system of 
counting than we do. Our system is called the decimal system 
because it has ten digits(l,2,3,4,5,6, 7,8,9, and 0). The computer, 
on the other hand, uses the binary system, which has only two 
digits (1 and 0). 

The following program allows you to convert from one system 
to the other, in either direction. It should be noted that 4095 is the 
largest decimal number this program can convert. See Fig. 5-1 for 
the flowchart. Here are some refreshers on how the binary system 
works. 






1 1 


+0 +1 


+0 +1 


1 


1 10 


BINARY 


DECIMAL EQUIVALENT 


1 


1 


10 


2 


11 


3 


100 


4 


101 


5 


110 


6 


111 


7 
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1000 


8 


1001 


9 


1010 


10 


1011 


11 


1100 


12 


1101 


13 


1110 


14 


1111 


15 


10000 


16 



DECIMAL TO 
BINARY 




PRINT RESULT 



RESET TO 
BEGINNING 



Fig. 5-1 . Binary/Decimal Flowchart. 
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Standard BASIC 

10 LETB=1 

15 LETD=2 

20 PRINT'ENTER B TO CONVERT FROM BINARY TO DECI- 
MAL," 

25 PRINT'OR D TO CONVERT FROM DECIMAL TO BINARY"; 

30 INPUT A 

40 IF A=2 THEN GOTO 200 

50 PRINT-ENTER YOUR BINARY NUMBER "; 

55 INPUT N 

60 IF<1 THEN GOTO 170 

65 LETN=INT(N) 

70 LET C =0.5 

75 LETE=0 

80 LETC=C*2 

90 IF N=0 THEN GOTO 150 
100 LETN=N/10 
110 LETM=N-INT(N) 
115 LETN=INT(N) 
120 IFM=0.1THENLETE=E+C 
130 IF M>0.1 THEN GOTO 190 
140 GOTO 80 
150 PRINT E 
160 GOTO 10 
170 PRINTTHE NUMBER MUST BE POSITIVE AND GREATER 

THAN 1" 
180 GOTO 10 

190 PRINT "THIS NUMBER IS NOT IN BINARY FORM" 
195 GOTO 10 

200 PRINT ENTER YOUR DECIMAL NUMBER "; 
205 INPUT N 
210 IFN<1G.170 
215 LETN=INT(N) 
220 IF N>4095 THEN GOTO 330 
230 LETE=0 
235 LETC=2048 
240 LETM=INT(N/C) 
250 IFM=1THENGOSUB300 
260 IF N=0 THEN GOTO 150 
270 LETC=C/2 
275 IF C<1 THEN GOTO 150 
280 LETE=E*10 
290 GOTO 240 
300 LETE=E+1 
310 LETN=N-M 
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320 RETURN 

330 PRINT'THE PROGRAM CAN ONLY HANDLE NUMBERS UP 

TO 4095" 
340 GOTO 10 

TRS-80 BASIC 

10 B=1:D=2 

20 P."ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR 
D" 

30 P."TOCONVERTFROMDECIMALTOBINARY";A 

40 IFA=2G.200 

50 IN."ENTERYOURBINARYNUMBER";N 

60 IFN<1G.170 

65 N=INT(N) 

70 C=0.5:E=0 

80 C=C*2 

90 IFN=0G.150 
100 N=N/10 

110 M=N-INT(N):N=INT(N) 
120 IFM=.1THENE=E+C 
130 IFM>.1G.190 
140 G.80 
150 P.E 
160 G.10 
170 P."THE NUMBER MUST BE POSITIVE AND GREATER THAN 

1" 
180 G.10 

190 P."THISNUMBERISNOTINBINARYFORM":G.10 
200 IN."ENTERYOURDECIMALNUMBER";N 
210 IfN<lG.170 
215 N=INT(N) 
220 IFN>4095G.33O 
230 E=0:C=2048 
240 M=INT(N/C) 
250 IFM=1GOS.300 
260 IFN=0G.150 
270 C=C/2 
280 IFC<1G.150 
285 E=E*10 
290 G.240 
300 E=E+1 
310 N=N-M 
320 RET. 
330 P. "THIS PROGRAM CAN ONLY HANDLE NUMBERS UP TO 

4095" 
340 G.10 
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Summary of Variables Used 

A MODE CHOICE 

B BINARY 

C PLACE VALUE 

D DECIMAL 

E CONVERTED NUMBER 

M INTERMEDIATE VARIABLE 

N NUMBER TO BE CONVERTED 

Sample Run 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR D 

TO CONVERT FROM DECIMAL TO BINARY? D 

ENTER YOUR DECIMAL NUMBER? 123 

1111011 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR D 

TO CONVERT FROM DECIMAL TO BINARY? B 

ENTER YOUR BINARYNUMBER? 123 

THIS NUMBER IS NOT IN BINARYFORM 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR D 

TO CONVERT FROM DECIMAL TO BINARY? B 

ENTER YOUR BINARYNUMBER? 1010101 

85 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR D 

TO CONVERT FROM DECIMAL TO BINARY? B 

ENTER YOUR BINARY NUMBER? Ill 

7 

ENTER B TO CONVERT FROM BINARY TO DECIMAL, OR D 

TO CONVERT FROM DECIMAL TO BINARY? D 

ENTER YOUR DECIMAL NUMBER? 17 

10001 
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Day of the Week 



Sometimes it's interesting to know on what day of the week 
some specific date fell. You could thumb your way through an old 
calendar, but this program will quickly calculate the day of the 
week for you. 

The dates used in the sample run are July 31, 1980 (7/31/ 
1980), April 17, 1954 (4/17/1954), and August 22, 1734 (8/22/ 
1734). Of course you can also use dates which extend into the 
future. 

Note that this program has no provisions for validating your 
entries. It will accept 34/952/21212 as a date, but of course the 



Fig. 5-2. Flowcharter Day of the Week. 
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result will be utterly meaningless. So double-check your entries to 
avoid getting a wrong answer. 
See Fig. 5-2 for the flowchart. 

Standard BASIC 

10 PRINT" "."DAY OF THE WEEK" 

15 PRINT 

20 PRINTENTER THE MONTH NUMBER - 1-12"; 

25 INPUT M 

30 LETM=M-2 

40 IFM=0THENLETM=12 

50 IFM=-1THENLETM=11 

60 PRINT-ENTER THE DAY OF THE MONTH"; 

65 INPUT D 

70 PRINT'ENTER THE YEAR"; 

75 INPUT Y 

80 IFM>10THENLETY=Y-1 

85 LETX=INT(Y/100) 

90 LETY=(Y-X)*100 

95 LET A=INT(D+(2.6*M-0.2)) 

100 LETA=A+INT(Y/4+Y) 

110 LETA=A+INT((X/4)-2*X) 

120 IF A<0 THEN GOTO 240 

130 LETA=A/7 

135 LETA=A-INT(A)*7 

140 LETA=INT(A) 

150 PRINT'THAT DATE FELL ON A"; 

160 IF A=0 THEN PRINT-SUNDAY" 

170 IF A=l THEN PRINT-MONDAY" 

180 IF A=2 THEN PRINTTUESDAY" 

190 IF A=3 THEN PRINT" WEDNESDAY" 

200 IF A=4 THEN PRINT-THURSDAY" 

210 IF A=5 THEN PRINT-FRIDAY" 

220 IF A=6 THEN PRINT-SATURDAY" 

230 END 

240 LETA=A+7 

250 GOTO 120 

TRS-80 BASIC 

10 P." "."DAY OF THE WEEK": P. 

20 IN.-ENTER THE MONTH NUMBER - M2";M 

30 M=M-2 

40 IFM=0THENM=12 

50 IFM=~1THENM=11 
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60 IN."ENTERTHEDAYOFTHEMONTH";D 

70 IN."ENTERTHEYEAR";Y 

80 IFM>10THENY=Y-1 

90 X=INT(Y/100):Y=(Y-X)*100 

100 A=INT(D+(2.6*M-.2))+INT(Y/4+Y) 

110 A=A+INT((X/4)-2*X) 

120 IFA<0G.240 

130 A=A/7:A=A-INT(A)*7 

140 A=INT(A) 

150 P. "THAT DATE FELL ON A"; 

160 IFA = OTHENP."SUNDAY" 

170 IF A=l THEN P. "MONDAY' 

180 IF A=2 THEN P. "TUESDAY' 

190 IF A=3 THEN P. "WEDNESDAY" 

200 IF A=4 THEN P. "THURSDAY' 

210 IF A=5 THEN P. "FRIDAY' 

220 IFA=6THENP."SATURDAY' 

230 END 

240 A=A+7:G.120 

Summary of Variables Used 

A Day of the week X Century 

D Date Y Year 

M Month 

Sample Run 

RUN 

DAY OF THE WEEK 
ENTER THE MONTH NUMBER - 1-12? 7 
ENTER THE DAY OF THE MONTH? 31 
ENTER THE YEAR? 1980 
THAT DATE FELL ON A THURSDAY 

READY 
RUN 

DAY OF THE WEEK 
ENTER THE MONTH NUMBER - 1-12? 4 
ENTER THE DAY OF THE MONTH? 17 
ENTER THE YEAR? 1954 
THAT DATE FELL ON A SATURDAY 

READY 
RUN 

DAY OF THE WEEK 
ENTER THE MONTH NUMBER - 1-12? 8 
ENTER THE DAY OFTHE MONTH? 22 
ENTER THE YEAR? 1734 
THAT DATE FELL ON A SUNDAY 

READY 
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Ohm's Law 



This one is a bit off the main path as far as this book goes, but 
it's interesting to try entering various variables to see how voltage, 
current, resistance and power interact in an electrical circuit. Just 
pull numbers out of the air and then study the results. 

Most experimenters are at least vaguely familiar with Ohm's 
Law (Voltage equals current times resistance), but by running a 
number of combinations through this program you can really get a 
solid feel for it. 

See Fig. 5-3 for the flowchart. 



Standard BASIC 




5 REM** OHM'S LAW** 




10 LETO=l 




15 LETV=2 




20 LETC=3 




25 PRINTDO YOU NEED TO FIND OHMS, VOLTS, 


OR CUR- 


RENT"; 




30 INPUT X 




35 IF X=0 THEN GOTO 70 




40 IF X=V THEN GOTO 130 




50 IF X=C THEN GOTO 160 




60 GOTO 20 




70 PRINT"VOLTS"; 




75 INPUT E 




80 GOSUB220 




85 LETR=E/I 




90 LETP=E*I 




95 PRINT"RESISTANCE IS";R;" OHMS (OR"; 




100 LETR=R/1000 




105 PRINT R;"KILOHMS" 




110 PRINT"POWERIS";P;"WATTS" 




120 GOTO 10 




130 GOSUB220 




135 GOSUB260 




140 LETE=I*R 




145 LETP=I*I*R 




150 PRINT"VOLTAGEIS";E;"VOLTS" 




155 GOTO 110 




160 PRINT'VOLTS"; 




165 INPUT E 




170 GOSUB260 




175 LETI=E/R 
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180 PRINT'CURRENTIS";I;"AMPS(OR"; 

185 LETI=I*1000 

190 PRINTI;"MILLIAMPS)" 

200 GOTO 110 

220 LETA=1 

225 LETM=1000 

230 PRINT'IS CURRENT IN AMPS OR MILLIAMPS"; 

235 INPUT X 




CURRENT? 



CURRENT 



POWER 



Fig. 5-3. Flowchartfor Ohm's Law. 
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240 PRINT "CURRENT"; 

245 INPUT I 

250 LETI=I/X 

255 RETURN 

260 LETR=1 

270 LETK=1000 

280 PRINT'IS RESISTANCE IN OHMS OR KILOHMS"; 

290 INPUT X 

300 PRINT'RESISTANCE"; 

310 INPUT R 

320 LETR=R*X 

330 RETURN 

TRS-80 BASIC 

10 0=1:V=2:C=3 

20 IN."DOYOUNEED TO FIND OHMS, VOLTS, ORCURRENT";X 

30 IFX=OG.70 

40 IFX=VG.130 

50 IFX=CG.160 

60 G.20 

70 IN. "VOLTS"; E 

80 GOS.220 

90 R=I/E:P=E*I 

100 "RESISTANCE IS "; R; "OHMS (OR "; 

105 R=R/1000:P.R;" KILOHMS)" 

110 P.'TOWERIS ";P;" WATTS" 

120 G. 10 

130 GOS.220 

135 GOS.260 

140 E=rR:P=I*I*R 

145 P."VOLTAGE IS "; E; " VOLTS" 

150 G. 110 

160 IN. "VOLTS"; E 

165 GOS.260 

170 P."CURRENTIS";I;"AMPS(OR"; 

180 1=1*1000 

190 P.I;"MILLIAMPS)" 

200 G. 110 

220 A=1:M=1000 

230 IN."IS CURRENT IN AMPS OR MILLIAMPS";X 

240 IN."CURRENT";I 

250 I=I/X 

255 RET. 

260 R=1:K=1000 

270 IN. "IS RESISTANCE IN OHMS OR KILOHMS";X 
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28( 


) IN. "RESISTANCE"; R 


290 R=R*X 


300 RET. 


Summary of Variables Used 


A 


AMPS 


C 


CURRENT 


E 


VOLTAGE VALUE 


I 


CURRENT VALUE 


K 


KILOHMS 


M 


MILLIAMPS 





OHMS 


P 


POWER VALUE 


R 


RESISTANCE VALUE 


V 


VOLTAGE 


X 


INPUT VARIABLE 



Sample Run 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? OHMS 

VOLTS?9 

IS CURRENT IN AMPS OR MILLIAMPS? AMPS 

CURRENT? 1.5 

RESISTANCE IS 6 OHMS (OR 0. 0006 KILOHMS) 

POWER IS 13. 5 WATTS 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? OHMS 

VOLTS? 130 

IS CURRENT IN AMPS OR MILLIAMPS? MILLIAMPS 

CURRENT? 50 

RESISTANCE IS 2700 OHMS (OR 2. 7 KILOHMS) 

POWER IS 6. 75 WATTS 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? CURRENT 

VOLTS? 87 

IS RESISTANCE IN OHMS OR KILOHMS? KILOHMS 

RESISTANCE? 4.7 

CURRENT IS 0.0185106 AMPS (OR 18.5106 MILLIAMPS) 

POWER IS 1.6104255 WATTS 

DO YOU NEED TO FIND OHMS, VOLTS, OR CURRENT? VOLTS 

IS CURRENT IN AMPS OR MILLIAMPS? AMPS 

CURRENT? 15 

IS RESISTANCE IN OHMS OR KILOHMS? OHMS 

RESISTANCE? 180 

VOLTAGE IS 2700 VOLTS 

POWER IS40500 WATTS 
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Fahrenheit/Celsiys 

Here is another program that could be used for immediately 
practical purposes, i.e., when you need to convert a specific 
temperature from Fahrenheit to Celsius, or vice versa. But I think 
it can be better used with a string of randomly selected values so 
you can really get a solid feel of the relationship of Fahrenheit to 
Celsius. The U. S. seems to be slowing in the process of converting 
to metric, but it's still a good idea to get comfortable with the 
metric standards. 

You can devise similar programs for converting inches/feet/ 
miles to centimeters/meters/kilometers, pints/quarts/gallons to 
liters, ounces/pounds/tons to grams and kilograms, and so forth. 

See Fig. 5-4 for the flowchart. 

Standard BASIC 



10 


LETA=1 


15 


LETB=2 


20 


IN. "A-FAHRENHEITTO CELCIUS OR B- CELSIUSTO" 


25 


PRINT "FAHRENHEIT"; 


30 


INPUT M 


40 


IF M=2 THEN GOTO 100 


50 


PRINT'TEMPERATURE IN FAHRENHEIT'; 


55 


INPUT T 


60 


LETX=(5/9)*(T-32) 


70 


PRINT "TEMPERATURE IN CELSIUS IS ";X;" DEGREES" 


80 


GOTO 10 


100 


PRINT'TEMPERATURE IN CELSIUS"; 


110 


INPUT T 


120 


LETX=(9/5)*T+32 


130 


PRINT'TEMPERATURE INFAHRENHEITIS";X; "DEGREES" 


140 


GOTO 10 


TRS-80 BASIC 


10 


A=1:B=2 


20 


P."A-FAHRENHEITTO CELSIUS ORB- CELSIUSTO" 


30 


IN."FAHRENHEIT";M 


40 


IFM=2G.100 


50 


IN. "TEMPERATURE INFAHRENHEIT";T 


60 


X=(5/9)*(T-32) 


70 


P. "TEMPERATURE IN CELSIUS IS ";X;" DEGREES" 


80 


G.10 
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100 IN. "TEMPERATURE IN CELSIUS"; T 

110 X=(9/5)*T+32 

120 P.'TEMPERATURE IN FAHRENHEIT IS ";X;" DEGREES" 

130 G.10 



Summary Of Variables Used 

A FAHRENHEIT TO CELSIUS 
B CELSIUS TO FAHRENHEIT 
M MODE SELECTION 
T INPUT TEMPERATURE 
X CONVERTED TEMPERATURE 



c 



RUN 




i 



FAHRENHEIT TO 
CELSIUS 




CONVERSION 



PRINT RESULT 



CELSIUS TO 
FAHRENHEIT 




CONVERSION 



i 



PRINT RESULT 



_Z3 



Fig. 5-4. Flowchart for Fahrenheit/Celsius. 
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Sample Run 

A - FAHRENHEIT TO CELSIUS OR B - CELSIUS TO 

FAHRENHEIT? A 

TEMPERATURE IN FAHRENHEIT? 72 

TEMPERATURE IN CELSIUS IS 22.222222 DEGREES 

A - FAHRENHEIT TO CELSIUS OR B - CELSIUS TO 

FAHRENHEIT? B 

TEMPERATURE IN CELSIUS? 

TEMPERATURE IN FAHRENHEIT IS 32 DEGREES 

A - FAHRENHEIT TO CELSIUS OR B - CELSIUS TO 

FAHRENHEIT? B 

TEMPERATURE IN CELSIUS? 32 

TEMPERATURE IN FAHRENHEIT IS 89. 6 DEGREES 

A - FAHRENHEIT TO CELSIUS OR B - CELSIUS TO 

FAHRENHEIT? A 

TEMPERATURE IN FAHRENHEIT? - 15 

TEMPERATURE IN CELSIUS IS -26. 111111111 DEGREES 

A - FAHRENHEIT TO CELSIUS OR B CELSIUS TO FAHRENHEIT? B 

TEMPERATURE IN CELSIUS?- 15 

TEMPERATURE IN FAHRENHEIT IS 5 DEGREES 
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Appendix: 

Notes on 

Programming 

in BASIC 



X«» mm m m mm/ 



BASIC is one of the easiest computer languages to learn because the 
commands are in English, or they're straightforward abbreviations. It's 
also fairly standardized, so a program written on one computer can usually 
be easily translated for use on another manufacturer's unit. There are 
slight variations from brand to brand, but they are usually quite minor. 

In this Appendix, commands used in the programs contained in this 
book will be explained. Alternative forms used on some of the more 
popular models now on the market will also be given. By comparing the 
following list of commands with the commands given on the manual for 
your computer, you should have no difficulty adapting the programs for use 
on your own machine. In most cases the commands will be identical, so you 
can enter them directly. 

There are a number of other commands available in most versions of 
BASIC, but I have listed here the most commonly used. The programs in 
this book are limited to these common commands so they can be run on 
almost any computer. 

In some cases you will be able to substitute a number of program 
steps with a single special-purpose command. This option is available on 
some advanced computers. You should always feel quite free to modify the 
programs any way you like and to take advantage of any special functions of 
your own computer. 

Note that the games in this book don't make any use of graphics. This 
is because graphic capabilities are quite unstandardized from computer to 
computer. To avoid confusion and translation difficulties, I decided to 
forego graphics in these programs. Naturally, you can add any graphics you 
please. 

BASIC COMMANDS 

+ Addition. This symbol is used exactly the 

way it should be in algebra. For example, 
the statement LET C=A+B will add A and B 
and identify the sum as C. 
— Subtraction. Example; LET C=A- B. See 4- 

* Multiplication. This symbol must be used 

when multiplication is desired. C=AB is 
acceptable in algebra, but not in BASIC. If 
you omit the symbol, the program will bomb 
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out. An asterisk is used instead of the more 
familiar X to avoid confusion with the 
variable. Example; C=A*B 

/ Division. Example; C=A/B 

Equals. SeeLETandlF. . . THEN. . . 

> Greater than. See IF . . . THEN . . . 

< Less than. See IF . . . THEN . . . 

( ) Parentheses are used primarily the way they 

are in algebra, to alter the order of 
mathematical operations. For example 
2*3+4=10, but2*(3+4)=14. Note That 2(3 +4) 
is not acceptable to a computer. It must be 
written as 2* (3+4). 

: A colon separates two commands on a single 

line. For example, LETA=5:LETB=7. Not 
all computers have this capability. 

; A semi-colon allows you to combine text 

and/or variable values on a single line 
with a PRINT command. For example, ifX 
= 5, the command PRINT "THE VALUE OFX IS "j 
X would produce this result— 
THE VALUE OFX IS 5 
See also PRINT 

, A comma allows you to combine text 

and/or variables on a single line 
with a PRINT command, but they will 
separated by a space. For example, if 
X=5, thecommandPRINT'THEVALUEOFX 
IS", X would produce this result— 

THE VALUE OFX IS 5 
A comma can also be used on most computers 
to separate variables. For example, INPUT 
A, B. The input data must also be set off 
by commas. 
See also INPUT 
See also PRINT 

A(X) Array location number X. X an be a variable, 

or a fixed numeral. 

The array can give you a large supply of 
variables in addition to the 26 letters of 
the alphabet. The size and number of arrays 
varies from computer to computer. Only one 
array is used in the programs in this book. 

A$ A string variable. This allows the computer 

to recall up to sixteen (typically) characters. 
For example, if A$= HELLO, PRINT A$,A$,A$ 
would produce this result: 
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HELLO HELLO HELLO 
While many computers offer a number of 
string variables, only A$ and B$ are used 
in these programs. Note that a space counts as a 
characterinastringvariable. That is , "JOHNDOE"is 
considered to have eight characters. 
ABS(X) This produces the abolute value of X (or 

any variable. The absolute value is always 
positive. IfX is positive then ABS(X) will 
equal X. IfX is negative, the sign is 
reversed For example, ABS(5)=5, ABS(-7)= 
7. 
CLE Clearprogram. See NEW 

CLS Clear screen. This erases everything 

displayed on the video terminal, and resets 
the pointer to the top of the screen. This 
command sometimes varies on different 
computers. On the Apple II it is HOME, 
andonthePETitisPRINT" H " 
A number of computers don't have a clear 
screen command that can be incorporated into 
the program. For these computers you can 
use the following sequence: 

- FORX=lTOY 

- PRINT 

- NEXTX 

Y is greater than the number of lines the 
video display will hold at the time. This 
method (which is used for the Standard BASIC 
versions throughout this book) will start 
the text scrolling up from the bottom of the 
screen, rather than starting at the top and 
working down. Each new line will push the 
previous lines up one. 

E+_ Exponential scientific notation. Often 

you need to work with numbers that are too 
large or too small to be dealt with 
directly. In these cases an exponent is 
used. An exponent tells you how many times 
to multiply (or divide if negative) the 
number by 10. For example, 1.568E+07= 
15, 680, 000. Standard algebraic notation 
wouldbe 1.568 xlO 7 

END This command tells the computer that the 

program is finished and it should stop. In 
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some cases this command is optional, but it 
is always necessary when subroutines follow 
the main body of the program. 
On some computers the command is STOP. 

FORX=ATOB:NEXTX 

This is a loop counter. For example, FORX 
= 1 TO 100: NEXT X will make the computer 
count from 1 to 100. In this form the 
command produces a timing delay. 
Another use is to insert a number of 
additional program steps between FOR X= 
A TO B and NEXT X for repeated execution. 
The abbreviated form for the TRS-80 is 
F.X=ATOB;N.X 

FORX=ATOBSTEPC 

The step statement is used when you need 
to count by some interval other than one. 
A negative number can be used if A is larger 
than B. Example; FOR X=1T011 STEP 2: PRINT 
NEXT X would result in the following: 
1 
3 
5 
7 
9 
11 

GOSUB Go to subroutine. This command must be 

followed by the line number where the 
subroutine begins. Subroutines are used 
when a number of steps are required at 
several points throughout a program. By 
using a subroutine rather than entering 
the steps separately each time, much memory 
space can be saved. A subroutine must end with 
the command RETURN to send the computer's pointer 
back to where it left off in the main program. The 
TRS-80 abbreviations are GOS.andRET. 

GOTO This command can send the program ahead or 

back to any program step. It must be 
followed by the appropriate line number. 
GOTO is most often used with an IF . . . THEN . . . 
test. The TRS-80 abbreviation is G. 

HOME Clears the display screen on APPLE II 

computers. See CLS 

IF . . . THEN . . . This statement is used to test and compare 
data. For example, IF X=Y THEN GOTO 200. 
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If X does equal Y then the program will 

jump to line 200, ignoring any intermediate 

steps. If X does not equal Y the program 

will continue the next consecutive 

step. The term GOTO can be skipped on some 

computers. Others will allow you to leave 

out the word THEN. 

> or < can be used in place of = 

Another frequent form is IFX=YTHEN A=B. 

This works in the same manner as above. 

INPUT This stops the program and signals the 

operator (usually with a question mark 
or some prompting symbol) to enter 
data. Generally a preceding PRINT command 
will specify what data is required. 
The INPUT command must be followed by 
a variable character that will take on 
the value of the inputed data. String 
variables can be used (see A$). It can be 
abbreviated as IN. on the TRS-80. 
Some computers (including the TRS-80) will 
allow an implied PRINT command between the 
term INPUT and the variable. For example, 
INPUT "ENTER YOUR DATA";X will appear on 
the display as: 

ENTER YOUR DATA? 

The same result can be achieved with two 
commands, i.e. PRINT"ENTER YOUR DATA"; 
:INPUTX See also, 

INT(X) This command chops off any fractional 

portion of the variable's value, leaving 
only the integer. For example, INT(3. 14) 
=3 

LET This command is used to assign values to 

variables. For examples, LET A=5, or LET 
X=A + B. The order cannot be reversed. 
A + B — X and 5=A are not allowed. 
Many computers allow the LET to be left off 
and merely implied. The commands would 
then be simply A=5 or X= A + B 

NEW This command is never used within a 

program. It is used to clean an old 
program out of the computer's memory, 
and make it ready for a new program. 
Some computers use CLE or SCR for this 
command. 
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PRINT When used by itself the PRINT command prints 

a blank line. Or, if the preceding PRINT 
command ended with a comma or semi-colon, 
this command will start a new line. 
See also ; and , 

PRINT X When a PRINT command is followed by a 

variable, the numerical value of that 
variable will be printed. For example, 
LET X=5: PRINT X will result in 

5 

This command can also print the result of 

a mathematical operation. For example, 

PRINT 5+3*(7-4) will result in 

14 

PRINT "xxxxx" If a PRINT command is followed by any 
characters enclosed in quotes, whatever 
is in quotes will be printed. For 
example, PRINT "THIS IS AN EXAMPLE" will 
result in this display— 

THIS IS AN EXAMPLE 

PRINT" SB " This is the clear screen command for 
the PET computer. SeeCLS 

REM Remark, This command is ignored by the 

computer. It allows you to place 
explanatory notes at convenient places in 
a program 

RETURN This command must be used to end a 

subroutine. On the TRS-80 it can be 
abbreviated as RET. s 

SeeGOSUB 

RND(X) This command is used to generate a random 

number for adding an element of chance to 
games or probability studies. LET X= RND(O) 
produces a number between and 1, for 
example, 0. 5371. Some computers (such as the TRS-80) 
will allow you to directly produce larger 
random numbers. For example, X=RND(10) 
would produce an integer between one and 
ten, inclusive. Most computers, however, 
will only recognize RND(O). Higher numbers 
can be generated with a few additional 
commands. The random number can be multiplied 
by the largest number you want LETX= 
' RND(0)*0 will generate numbers from 0. 0001 
to 9. 9999. By using the integer command 
(INT), you end up with random numbers between 
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0and9, inclusive. To avoid the possibility 
of a zero, just add one to whatever the random 
number might be. In other words, X=RND(10) 
is equivalent to LETX=INT(RND(0)*10)+1. 
A few computers (such as the PET) require 
RND(l), rather than RND(O). 

RUN This command is never used within a 

program. It is used to put the program 
into operation. There is usually a 
BREAK key to let you stop the computer 
in mid program 

SCR SCRUB program, or SCRATCH program. See 

NEW 

SGN(X) Reverse sign of variable in brackets. 

For example, LETX=-5:SGN(X):PRINTX 

5 
LETY = 7:SGN(Y):PRINTY 
-7 

SQR(X) Square X. That is, multiply the variable 

times itself. LET X=X*X would give the 
same result. 
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34 MORE Tested, 
Ready-To-Run Game Programs In BASIC 

by Delton T. Horn 

Who says computers are only for serious business? There's a 
light side to your computer's personality, too . . . and here's the book 
that shows you \us\ how much fun it can really be! Includes a complete 
collection of games, gags, brain teasers, and "non-games" . . . even 
programs that entertain while they educate] In easy-to-read-and-use 
format with lots of illustrations, flowcharts, and listings for each pro- 
gram in both standard BASIC and abbreviated BASIC using the Level 
I TRS-80 computer. 

Find one-player games ranging from Tic-Tac-Toe and Lost in the 
Jungle to the challenging Guess The Variables, Quiz Whiz, or Memory 
Test. Two-player games like Money Mad or Stack Cut can keep you 
and a friend occupied for hours . , . and there are even games you can 
watch the computer play against itself! Looking for something that's 
practical, but still entertaining? Try Binary Decimal. It tests your skills 
at converting numbers from one system to another, and is a must for 
anyone attempting to write their own programs. Day of the Week, 
Ohm's Law, and Fahrenheit/Celsius are other fun-but-practical 
exercises included in this upbead ideabook. 

Discover Frustration, a game so complex and challenging that 
there's a whole section detailing the strategies involved. Plus, there 
are lots of "non-games" . . . Coin Flipper, Surprise Poem, Favorite 
Song, or Tunesmith. An appendix gives you all the data you need to 
understand the BASIC commands included in the various programs, 
and suggests alternative forms for computer models other than the 
TRS-80. Hints, too, on how to change and modify the programs to suit 
your own particular fancy. 

If you'd like to put some fun-and-games into your computer's life, 
then this is a program guide you won't want to miss! 

Delton T. Horn is a field engineer and technician, and author of 
TAB's Electronic Music Synthesizers. 
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